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

* boot-9.scm (macroexpand-1, macroexpand), slib.scm

Browse source 
(slib:features), r4rs.scm (%load-verbosely): "defined?" is now a
 function, use it accordingly.
This commit is contained in:
Marius Vollmer 1996-11-27 13:32:02 +00:00
parent 84abd24334
commit b1818df3c3
3 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1829,7 +1829,7 @@
(define (macroexpand-1 e)
(cond
((pair? e) (let* ((a (car e))
(val (and (symbol? a) (eval `(defined? ,a)) (eval a))))
(val (and (symbol? a) (defined? a) (eval a))))
(if (defmacro? val)
(apply (defmacro-transformer val) (cdr e))
e)))
@ -1838,7 +1838,7 @@
(define (macroexpand e)
(cond
((pair? e) (let* ((a (car e))
(val (and (symbol? a) (eval `(defined? ,a)) (eval a))))
(val (and (symbol? a) (defined? a) (eval a))))
(if (defmacro? val)
(macroexpand (apply (defmacro-transformer val) (cdr e)))
e)))

2
ice-9/r4rs.scm
View file

@ -124,7 +124,7 @@
;;;; Loading
(if (not (defined? %load-verbosely))
(if (not (defined? '%load-verbosely))
(define %load-verbosely #f))
(define (assert-load-verbosity v) (set! %load-verbosely v))

12
ice-9/slib.scm
View file

@ -56,27 +56,27 @@
string-port
with-file)
(if (defined? getenv)
(if (defined? 'getenv)
'(getenv)
'())
(if (defined? current-time)
(if (defined? 'current-time)
'(current-time)
'())
(if (defined? system)
(if (defined? 'system)
'(system)
'())
(if (defined? array?)
(if (defined? 'array?)
'(array)
'())
(if (defined? char-ready?)
(if (defined? 'char-ready?)
'(char-ready?)
'())
(if (defined? array-for-each)
(if (defined? 'array-for-each)
'(array-for-each)
'())