diff options
Diffstat (limited to 'module/glob.scm')
| -rw-r--r-- | module/glob.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/glob.scm b/module/glob.scm index 20cb4b1c..23a5b51c 100644 --- a/module/glob.scm +++ b/module/glob.scm @@ -36,7 +36,11 @@ (unless (zero? globret) (scm-error 'misc-error "glob" "Globret errror ~a" - (list globret) + (list + (cond ((= globret GLOB_NOSPACE) 'glob-nospace) + ((= globret GLOB_ABORTED) 'glob-noabport) + ((= globret GLOB_NOMATCH) 'glob-nomatch) + (else globret))) #f)) (let* ((globstr (parse-c-struct (bytevector->pointer bv) (list size_t '* size_t))) (strvec (pointer->bytevector (cadr globstr) (car globstr) 0 |