[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 boot-9.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 boot-9.scm |
Date: |
Sun, 11 Feb 2001 10:16:58 -0800 |
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)
- guile/guile-core/ice-9 boot-9.scm,
Marius Vollmer <=