Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix :scm and other eval code for guile

  • Loading branch information...
commit 2da377d3948de2d340fe60eb8d428184b12b2a88 1 parent 3580935
@ayamada ayamada authored
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)
Please sign in to comment.
Something went wrong with that request. Please try again.