ke)))
      (glob pattern 0 g)
      (let ((res (glob.gl_pathv g)))
	(globfree g)
	res))))

;; now (load "*.scm") is (for-each load (glob-&gt;list "*.scm"))

;; a couple regular expression examples
(with-let (sublet *libc*)
  (define rg (regex.make))
  (regcomp rg "a.b" 0)
  (display (regexec rg "acb" 0 0)) (newline) ; 0 = match
  (regfree rg))

(with-let (sublet *libc*)
  (define rg (regex.make))
  (let ((res (regcomp rg "colou\\?r" 0)))
    (if (not (zero? res))
	(error 'regex-error "~S: ~S~%" "colou\\?r"