summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/slib.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 423653c75..83513459c 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -257,8 +257,9 @@
;; waitpid with WUNTRACED, but allow for it anyway, just in case.
;;
(if (defined? 'system)
- (define-public system
- (let ((guile-core-system system))
+ (begin
+ (define guile-core-system system)
+ (define-public system
(lambda (str)
(let ((st (guile-core-system str)))
(or (status:exit-val st)