[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: |
Wed, 21 Feb 2001 12:11:44 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/02/21 12:11:44
Modified files:
guile-core/ice-9: boot-9.scm
Log message:
* boot-9.scm (eval-when, eval-case): Renamed `eval-when' to
`eval-case', everywhere.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.225&r2=1.226
Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.225
guile/guile-core/ice-9/boot-9.scm:1.226
--- guile/guile-core/ice-9/boot-9.scm:1.225 Mon Feb 12 17:07:45 2001
+++ guile/guile-core/ice-9/boot-9.scm Wed Feb 21 12:11:44 2001
@@ -2511,22 +2511,22 @@
`(lambda ,(cdr first) ,@rest))))
`(define ,name (defmacro:syntax-transformer ,transformer))))
-;; EVAL-WHEN
+;; EVAL-CASE
;;
-;; (eval-when ((situation*) forms)* (else forms)?)
+;; (eval-case ((situation*) forms)* (else forms)?)
;;
-;; Evaluate certain code based on the situation that eval-when is used
+;; Evaluate certain code based on the situation that eval-case is used
;; in. The only defined situation right now is `load-toplevel' which
;; triggers for code evaluated at the top-level, for example from the
;; REPL or when loading a file.
-(define eval-when
+(define eval-case
(procedure->memoizing-macro
(lambda (exp env)
(define (toplevel-env? env)
(or (not (pair? env)) (not (pair? (car env)))))
(define (syntax)
- (error "syntax error in eval-when"))
+ (error "syntax error in eval-case"))
(let loop ((clauses (cdr exp)))
(cond
((null? clauses)
@@ -2550,7 +2550,7 @@
;;;
(defmacro define-module args
- `(eval-when
+ `(eval-case
((load-toplevel)
(process-define-module ',args))
(else
@@ -2567,14 +2567,14 @@
(reverse module-names)))
(defmacro use-modules modules
- `(eval-when
+ `(eval-case
((load-toplevel)
(process-use-modules ',modules))
(else
(error "use-modules can only be used at the top level"))))
(defmacro use-syntax (spec)
- `(eval-when
+ `(eval-case
((load-toplevel)
,@(if (pair? spec)
`((process-use-modules ',(list spec))
@@ -2601,7 +2601,7 @@
(#t
(let ((name (defined-name (car args))))
`(begin
- (eval-when ((load-toplevel) (export ,name)))
+ (eval-case ((load-toplevel) (export ,name)))
(define-private ,@args))))))
(defmacro defmacro-public args
@@ -2617,7 +2617,7 @@
(#t
(let ((name (defined-name (car args))))
`(begin
- (eval-when ((load-toplevel) (export ,name)))
+ (eval-case ((load-toplevel) (export ,name)))
(defmacro ,@args))))))
(define (module-export! m names)
@@ -2630,7 +2630,7 @@
names)))
(defmacro export names
- `(eval-when
+ `(eval-case
((load-toplevel)
(module-export! (current-module) ',names))
(else