mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 20:20:20 +02:00
Code Activity

* boot-9.scm (scm-style-repl): Use `primitive-eval' instead of

Browse source 
`eval'.
(define-public): Do not use `eval'.
This commit is contained in:
Marius Vollmer 2001-02-11 18:16:58 +00:00
parent 9e57344b1d
commit 22b3076671
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/boot-9.scm
View file

@ -2402,7 +2402,7 @@
(-eval (lambda (sourc) (-eval (lambda (sourc)
(repl-report-start-timing) (repl-report-start-timing)
(start-stack 'repl-stack (start-stack 'repl-stack
(eval sourc (interaction-environment))))) (primitive-eval sourc))))
(-print (let ((maybe-print (lambda (result) (-print (let ((maybe-print (lambda (result)
(if (or scm-repl-print-unspecified (if (or scm-repl-print-unspecified
@ -2569,13 +2569,8 @@
(module-add! public-i ',name (module-add! public-i ',name
(module-variable (current-module) ',name))) (module-variable (current-module) ',name)))
;; Now (re)define the var normally. Bernard URBAN ;; Now (re)define the var normally.
;; suggests we use eval here to accomodate Hobbit; it lets (define-private ,@ args) (interaction-environment))))))
;; the interpreter handle the define-private form, which
;; Hobbit can't digest.
(eval '(define-private ,@ args) (interaction-environment)))))))
(defmacro defmacro-public args (defmacro defmacro-public args
(define (syntax) (define (syntax)