Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixing imports

  • Loading branch information...
commit da8646c3ede9c09d94c4c72aeda6e2104b0273b5 1 parent 767be04
@mcandre authored
Showing with 6 additions and 5 deletions.
  1. +1 −1  cluckcheck.scm
  2. +5 −4 example.scm
View
2  cluckcheck.scm
@@ -1,4 +1,4 @@
-(module cluckcheck (gen-int gen-bool gen-char gen-list for-all)
+(module cluckcheck (gen-int gen-bool gen-char gen-list gen-string for-all)
(import scheme chicken extras)
(require-extension srfi-1) ; lists
View
9 example.scm
@@ -4,7 +4,8 @@ exec csi -ss $0 ${1+"$@"}
exit
|#
-(load "cluckcheck.scm")
+(load "cluckcheck")
+(import (prefix cluckcheck cluckcheck:))
(define (is-even n)
(= 0 (modulo n 2)))
@@ -19,7 +20,7 @@ exit
(string=? s (list->string (reverse (reverse (string->list s))))))
(define (main args)
- (cluckcheck#for-all is-even cluckcheck#gen-int)
- (cluckcheck#for-all is-even gen-even)
- (cluckcheck#for-all reversible cluckcheck#gen-string)
+ (cluckcheck:for-all is-even cluckcheck:gen-int)
+ (cluckcheck:for-all is-even gen-even)
+ (cluckcheck:for-all reversible cluckcheck:gen-string)
(exit))
Please sign in to comment.
Something went wrong with that request. Please try again.