Changeset 7927


Ignore:
Timestamp:
Dec 21, 2007, 4:49:23 PM (12 years ago)
Author:
gz
Message:

allow non-echoing input streams for the repl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-boot-lds.lisp

    r7487 r7927  
    7979                                  (value-stack-size *default-value-stack-size*)
    8080                                  (temp-stack-size *default-temp-stack-size*)
     81                                  (echoing t)
    8182                                  (process))
    8283  (let ((p (if (typep process class)
     
    9293    (process-preset p #'(lambda ()
    9394                          (let ((*terminal-io*
    94                                  (make-echoing-two-way-stream
    95                                   input-stream output-stream)))
     95                                 (if echoing
     96                                   (make-echoing-two-way-stream
     97                                    input-stream output-stream)
     98                                   (make-two-way-stream
     99                                    input-stream output-stream))))
    96100                            (unwind-protect
    97101                                 (progn
Note: See TracChangeset for help on using the changeset viewer.