On 3/22/06, Patrick Brannan <[EMAIL PROTECTED]> wrote: > Whoops, I left some debugging refuse in what I sent in. Try this instead: > > (define create-directory > (if (and windows (not (eq? (build-platform) 'cygwin))) > (lambda (dir) > (when (run-verbose) (printf " creating directory `~a' ~%~!" dir )) > (foreign-lambda void "create_directory" c-string)) > (lambda (dir) > (when (run-verbose) (printf " creating directory `~a'~%~!" dir)) > (system* "mkdir -p ~a" dir) ) ) )
I added the debug output to both branches, thanks! cheers, felix _______________________________________________ Chicken-users mailing list Chicken-users@nongnu.org http://lists.nongnu.org/mailman/listinfo/chicken-users
