diff options
-rw-r--r-- | ice-9/slib.scm | 5 |
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) |