diff options
| author | murphy <murphy@rubychan.de> | 2010-04-14 23:59:03 +0000 |
|---|---|---|
| committer | murphy <murphy@rubychan.de> | 2010-04-14 23:59:03 +0000 |
| commit | 200144dd009d33ff8334be24d0fb2cc91b3a87ab (patch) | |
| tree | f46c939cd01b8d4165b5d9f3444c20e072b51408 /test/scanners/scheme/strange.in.scm | |
| parent | 612a14e17bdae5dbb5b13cdceec797523725cbbe (diff) | |
| download | coderay-200144dd009d33ff8334be24d0fb2cc91b3a87ab.tar.gz | |
Moving scanner tests into separate repository. The repository can be reached at http://svn.rubychan.de/coderay-scanner-tests/trunk.
Diffstat (limited to 'test/scanners/scheme/strange.in.scm')
| -rw-r--r-- | test/scanners/scheme/strange.in.scm | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/test/scanners/scheme/strange.in.scm b/test/scanners/scheme/strange.in.scm deleted file mode 100644 index 4cb9c18..0000000 --- a/test/scanners/scheme/strange.in.scm +++ /dev/null @@ -1,38 +0,0 @@ - -("") -(string=? "K. Harper, M.D." ;; Taken from Section 6.3.3. (Symbols) of the R5RS - (symbol->string - (string->symbol "K. Harper, M.D."))) -;; BEGIN Factorial -(define factorial - (lambda (n) - (if (= n 1) - 1 - (* n (factorial (- n 1)))))) -;; END Factorial - - ;; BEGIN Square - (define square - (lambda (n) ;; My first lambda - (if (= n 0) - 0 - ;; BEGIN Recursive_Call - (+ (square (- n 1)) - (- (+ n n) 1))))) - ;; END Recursive_Call - ;; END Square - -;;LIST OF NUMBERS -(#b-1111 #xffa12 #o755 #o-755 +i -i +2i -2i 3+4i 1.6440287493492101i+2 1.344 3/4 #i23/70) - -;;a vector -#('(1 2 3) #\\a 3 #t #f) - -;;macros (USELESS AND INCORRECT, JUST TO CHECK THAT IDENTIFIERS ARE RECOGNIZED RIGHT) -(syntax-case () - ((_ name field ...) - (with-syntax - ((constructor (gen-id (syntax name) "make-" (syntax name))) - (predicate (gen-id (syntax name) (syntax name) "?")) - ((access ...) - (map (lambda (x) (gen-id x "set-" (syntax name) "-" x "!"))))))))
\ No newline at end of file |