Browse files

fix :scm and other eval code for guile

  • Loading branch information...
1 parent 3580935 commit 2da377d3948de2d340fe60eb8d428184b12b2a88 @ayamada ayamada committed May 11, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 src/hasp.scm
  2. +1 −1 src/load-file.scm
  3. +1 −1 src/sugar-read.scm
View
2 src/hasp.scm
@@ -488,7 +488,7 @@
(implode ", "
(map
(lambda (x)
- (let ((rv (eval x)))
+ (let ((rv (eval x (interaction-environment))))
(if (equal? rv (cond (#f #f)))
"()"
(data-str rv))))
View
2 src/load-file.scm
@@ -551,7 +551,7 @@
(implode ", "
(map
(lambda (x)
- (let ((rv (eval x)))
+ (let ((rv (eval x (interaction-environment))))
(if (equal? rv (cond (#f #f)))
"()"
(data-str rv))))
View
2 src/sugar-read.scm
@@ -215,7 +215,7 @@
(define (sugar-load filename)
(define (load port)
(let ((inp (sugar-read-style #t port)))
- (if (eof-object? inp) #t (begin (eval inp) (load port)))))
+ (if (eof-object? inp) #t (begin (eval inp (interaction-environment)) (load port)))))
(load (open-input-file filename)))
(define (sugar-enable)

0 comments on commit 2da377d

Please sign in to comment.