diff --git a/lang/go/src/vfs.sld b/lang/go/src/vfs.sld index ed7c323..d71166a 100644 --- a/lang/go/src/vfs.sld +++ b/lang/go/src/vfs.sld @@ -109,7 +109,7 @@ (set! dirmap (mapping-update!/default dirmap dir (lambda (v) (cons (cons fname (zsymlink contents)) v)) '())))) (vfs-contents vfs)) (define (read-dir dirname) - (define contents (mapping-ref dirmap dirname)) + (define contents (mapping-ref/default dirmap dirname '())) (for-each (lambda (pair) (when (eq? (cdr pair) 'directory)