diff --git a/lib/R7RS.scm b/lib/R7RS.scm index 07839510..bbc35e86 100755 --- a/lib/R7RS.scm +++ b/lib/R7RS.scm @@ -1551,7 +1551,7 @@ Create new empty library object with empty namespace." (let* ((parent (. (current-environment) '__parent__)) - (lib (let ((lib (--> parent (get name &(:throwError false))))) + (lib (let ((lib (--> parent (get name &(:throwError #f))))) (if (null? lib) (new %Library name) lib)))