scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix expr-test-test

This commit is contained in:
mainzelm 2006-03-23 09:35:15 +00:00
parent d18adb9c2b
commit bfbb3e31ea
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/test/awk-test.scm
View File

@ -171,11 +171,10 @@
("paar" (set! read (cons 'first-clause read))) ("paar" (set! read (cons 'first-clause read)))
((equal? line ((equal? line
"expr-test zu prüfen:") "expr-test zu prüfen:")
(set! line (cons 'second-clause read))) (set! read (cons 'second-clause read)))
((> counter 5) ((> counter 5)
(set! read (cons 'third-clause read))) (set! read (cons 'third-clause read)))
((+ "3") ((+ "3")
;; ^^^^^ makes problems here, but was ok in sre-expr-test ;;FIXXX it
(set! read (cons 'fourth-clause read))))) (set! read (cons 'fourth-clause read)))))
(make-string-input-port str)) (make-string-input-port str))
(equal? read (equal? read