mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 05:50:26 +02:00
Code Activity

(system): Correction to redefinition, now guile is stricter

Browse source 
about when a define binding comes into existance.
This commit is contained in:
Kevin Ryde 2004-07-05 00:08:24 +00:00
parent 4d0bfea130
commit fbacbccede
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/slib.scm
View file

@ -257,8 +257,9 @@
;; waitpid with WUNTRACED, but allow for it anyway, just in case. ;; waitpid with WUNTRACED, but allow for it anyway, just in case.
;; ;;
(if (defined? 'system) (if (defined? 'system)
(begin
(define guile-core-system system)
(define-public system (define-public system
(let ((guile-core-system system))
(lambda (str) (lambda (str)
(let ((st (guile-core-system str))) (let ((st (guile-core-system str)))
(or (status:exit-val st) (or (status:exit-val st)