Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 22:29:16 +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

12
lib/chibi/repl.scm
View file

@ -202,7 +202,8 @@
env)) env))
(imp-env (imp-env
(vector-ref (vector-ref
(eval `(load-module ',(car mod+imps)) meta-env) (eval `(load-module ',(car mod+imps))
meta-env)
1))) 1)))
(%import env imp-env (cdr mod+imps) #f) (%import env imp-env (cdr mod+imps) #f)
(continue module env meta-env)) (continue module env meta-env))
@ -219,7 +220,8 @@
(fail "couldn't find module:" name))))) (fail "couldn't find module:" name)))))
((meta config) ((meta config)
(if (eq? op '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))) (let ((expr (read/ss in)))
(cond (cond
((and ((and
@ -262,7 +264,8 @@
;; catches errors from eval. ;; catches errors from eval.
(guard (guard
(exn (exn
(else (print-exception exn (current-output-port)))) (else
(print-exception exn (current-output-port))))
(for-each (for-each
(lambda (expr) (lambda (expr)
(call-with-values (call-with-values
@ -271,7 +274,8 @@
(lambda res-list (lambda res-list
(cond (cond
((not (or (null? res-list) ((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) (write/ss (car res-list) out)
(for-each (for-each
(lambda (res) (lambda (res)