스키마의 언 바운드 변수

Question

(define input (read-line)) 
(define lngth (string-length input)) 
(define first-char (string-ref input 0)) 
(define test-num 
    (string->number 
    (substring input 0 (- (string-search-forward " " input) 1)))) 
(define end (string-search-forward ")" input)) 
(define beginning (string-search-backward "(" input)) 
(define operation (string (substring input beginning (+ end 1)))) 
(define space1 (string-search-forward " " operation)) 
(define space2 (string-search-backward " " operation)) 
(define n1 (string->number (substring operation 1 space1))) 
(define n2 (string->number (substring operation (+ space1 1) space2))) 
(define result (1)) 
(define operator (substring operation (+ space2 1) end)) 

(if (or (equal? first-char #\() (number? test-num)) 
    (display "yay") 
    (display "ERROR")) 

이 코드를 실행하고 올바르게 응답 할 수있게 해주는 MIT/GNU Scheme 구현과 함께 사용하고 있습니다. 내 문제는 비록 사용자 데이터가 일단 변수에 어떤 종류의 정보도 바인딩하지 않는다면 함수에 넣는다는 것입니다. I.E. 다음 데이터에 넣고 내가 할 매개 변수에 액세스하려고 후 :

1 ]=> (display input) 
;Unbound variable : input 

Answer 1

죄송합니다, 나를 위해 작동 :

$ mit-scheme 
MIT/GNU Scheme running under MacOSX 
Type `^C' (control-C) followed by `H' to obtain information about interrupts. 

Copyright (C) 2011 Massachusetts Institute of Technology 
This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY 
or FITNESS FOR A PARTICULAR PURPOSE. 

Image saved on Tuesday November 8, 2011 at 10:45:46 PM 
    Release 9.1.1 || Microcode 15.3 || Runtime 15.7 || SF 4.41 || LIAR/x86-64 4.118 || Edwin 3.116 

1 ]=> (load "bar.scm") 

;Loading "bar.scm"...(a b c)   ;; (define input (read-line)) 
done 
;Value: len 

1 ]=> input       ;; 'input' is bound 

;Value 13: "(a b c)" 

1 ]=> ^D 
End of input stream reached. 
Moriturus te saluto.