guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/02/11 10:16:58

Modified files:
        guile-core/ice-9: boot-9.scm 

Log message:
        * boot-9.scm (scm-style-repl): Use `primitive-eval' instead of
        `eval'.
        (define-public): Do not use `eval'.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.223&r2=1.224

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.223 
guile/guile-core/ice-9/boot-9.scm:1.224
--- guile/guile-core/ice-9/boot-9.scm:1.223     Fri Jan 26 08:58:48 2001
+++ guile/guile-core/ice-9/boot-9.scm   Sun Feb 11 10:16:58 2001
@@ -2402,7 +2402,7 @@
           (-eval (lambda (sourc)
                    (repl-report-start-timing)
                    (start-stack 'repl-stack
-                                (eval sourc (interaction-environment)))))
+                                (primitive-eval sourc))))
 
           (-print (let ((maybe-print (lambda (result)
                                        (if (or scm-repl-print-unspecified
@@ -2569,13 +2569,8 @@
              (module-add! public-i ',name
                           (module-variable (current-module) ',name)))
                               
-           ;; Now (re)define the var normally.  Bernard URBAN
-           ;; suggests we use eval here to accomodate Hobbit; it lets
-           ;; the interpreter handle the define-private form, which
-           ;; Hobbit can't digest.
-           (eval '(define-private ,@ args) (interaction-environment)))))))
-
-
+           ;; Now (re)define the var normally.
+           (define-private ,@ args) (interaction-environment))))))
 
 (defmacro defmacro-public args
   (define (syntax)