separate example from test
This commit is contained in:
parent
114d4b5163
commit
ea18e54517
|
@ -0,0 +1,15 @@
|
|||
(import (scheme base)
|
||||
(scheme read)
|
||||
(scheme eval)
|
||||
(scheme write)
|
||||
(picrin readline)
|
||||
(picrin readline history))
|
||||
(let loop ((n 1))
|
||||
(let ((input (readline "> ")))
|
||||
(if (eof-object? input)
|
||||
(newline)
|
||||
(begin
|
||||
(add-history input)
|
||||
(write (eval (read (open-input-string input)) '(picrin user)))
|
||||
(newline)
|
||||
(loop 1)))))
|
|
@ -1,23 +1,6 @@
|
|||
(import (scheme base)
|
||||
(scheme read)
|
||||
(scheme eval)
|
||||
(scheme write)
|
||||
(picrin readline)
|
||||
(picrin readline history)
|
||||
(picrin test))
|
||||
|
||||
|
||||
;; (let loop ((n 1))
|
||||
;; (let ((input (readline "> ")))
|
||||
;; (if (eof-object? input)
|
||||
;; (newline)
|
||||
;; (begin
|
||||
;; (add-history input)
|
||||
;; (write (eval (read (open-input-string input)) '(picrin user)))
|
||||
;; (newline)
|
||||
;; (loop 1)))))
|
||||
|
||||
;; (readline "prompt")
|
||||
|
||||
(define testfile "picrin_readline_test_file")
|
||||
(test-begin)
|
||||
|
|
Loading…
Reference in New Issue