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

SPAN - questionaire refactor

This commit is contained in:
erana 2012-01-18 22:31:24 +09:00
parent 1cc9d34578
commit a05da99853
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scsh/SPAN/SPAN.scm
View File

@ -231,20 +231,6 @@ Enter 'h' for help.")
(table-set! questions 21 SPAN-shell-droptext-21) (table-set! questions 21 SPAN-shell-droptext-21)
(table-set! questions 22 SPAN-shell-droptext-22) (table-set! questions 22 SPAN-shell-droptext-22)
(define table-range
(lambda (x y)
(let ((l '()))
(cond ((< x y)
(do ((i x (+ i 1)))
((= x y) l)
(set! l (append l (table-ref questions i)))))
((< y x)
(do ((i y (+ i 1)))
((= y x) l)
(set! l (append l (table-ref questions i)))))
(else (display-msg "range : x == y")
x)))))
(define question? (define question?
(lambda (n) (lambda (n)
(case ((n) (string-match (table-ref n) (rx (| ((string n))))) (case ((n) (string-match (table-ref n) (rx (| ((string n)))))