Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fit in 80 columns

Browse source
This commit is contained in:
Alex Shinn 2013-02-18 23:03:48 +09:00
parent b2caf66dcb
commit f60b72dbc0
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/chibi/repl.scm
View file

@ -125,7 +125,7 @@
(if (eof-object? x)
(reverse l)
(loop (cons x l))))))
(define (repl . o)
(let* ((in (cond ((memq 'in: o) => cadr) (else (current-input-port))))
(out (cond ((memq 'out: o) => cadr) (else (current-output-port))))
@ -202,7 +202,8 @@
env))
(imp-env
(vector-ref
(eval `(load-module ',(car mod+imps)) meta-env)
(eval `(load-module ',(car mod+imps))
meta-env)
1)))
(%import env imp-env (cdr mod+imps) #f)
(continue module env meta-env))
@ -219,7 +220,8 @@
(fail "couldn't find module:" name)))))
((meta config)
(if (eq? op 'config)
(display "Note: @config has been renamed @meta\n" out))
(display "Note: @config has been renamed @meta\n"
out))
(let ((expr (read/ss in)))
(cond
((and
@ -262,7 +264,8 @@
;; catches errors from eval.
(guard
(exn
(else (print-exception exn (current-output-port))))
(else
(print-exception exn (current-output-port))))
(for-each
(lambda (expr)
(call-with-values
@ -271,7 +274,8 @@
(lambda res-list
(cond
((not (or (null? res-list)
(equal? res-list (list (if #f #f)))))
(equal? res-list
(list (if #f #f)))))
(write/ss (car res-list) out)
(for-each
(lambda (res)