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

A better fix to the SLIB identity problem -- thanks to Marius Vollmer.

Browse source 
* slib.scm (identity): Unmake public.
	(slib:eval): Evaluate inside `slib-module'.
This commit is contained in:
Tim Pierce 1998-01-02 03:36:36 +00:00
parent 249cdba61b
commit 841d28d736
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,3 +1,9 @@
1998-01-01 Tim Pierce <twp@skepsis.com>
A better fix to the SLIB identity problem -- thanks to Marius Vollmer.
* slib.scm (identity): Unmake public.
(slib:eval): Evaluate inside `slib-module'.
1997-12-24 Tim Pierce <twp@skepsis.com>
* boot-9.scm: Doc fix.

8
ice-9/slib.scm
View file

@ -20,7 +20,7 @@
(define slib:exit quit)
(define slib:error error)
(define slib:warn warn)
(define slib:eval eval)
(define slib:eval (lambda (x) (eval-in-module x slib-module)))
(define defmacro:eval eval)
(define logical:logand logand)
(define logical:logior logior)
@ -156,11 +156,7 @@
(define (output-port-width . arg) 80)
(define (output-port-height . arg) 24)
;; `require' will not work unless identity is exported. It's not clear
;; why this is so, but doesn't seem worth deep investigation until
;; the module system settles down.
(define-public (identity x) x)
(define (identity x) x)
;;; {Time}
;;;