Code: Select all
(define (hello-world a)
(letn ((tmp 10)
(val1 (* tmp 2))
(val2 (* tmp 2)))
)
)
(debug (hello-world 10))
(define (hello-world a)
#(letn ((tmp 10) (val1 (* tmp 2)) (val2 (* tmp 2))))#)
[-> 3 ] s|tep n|ext c|ont q|uit > s
-----
(define (hello-world a)
(letn ((tmp 10) (val1 #(* tmp 2)#) (val2 (* tmp 2)))))
[-> 4 ] s|tep n|ext c|ont q|uit > s
-----
(define (hello-world a)
(letn ((tmp 10) (val1 #(* tmp 2)#) (val2 (* tmp 2)))))
RESULT: 20
[<- 4 ] s|tep n|ext c|ont q|uit > s
-----
(define (hello-world a)
(letn ((tmp 10) (val1 #(* tmp 2)#) (val2 (* tmp 2)))))
; This cause the bracket match error.
Is it should be:
(define (hello-world a)
(letn ((tmp 10) (val1 (* tmp 2)) (val2 #(* tmp 2)#))))
[-> 4 ] s|tep n|ext c|ont q|uit > s
-----
(define (hello-world a)
(letn ((tmp 10) (val1 #(* tmp 2)#) (val2 (* tmp 2)))))
RESULT: 20
[<- 4 ] s|tep n|ext c|ont q|uit > s
-----
(define (hello-world a)
#(letn ((tmp 10) (val1 (* tmp 2)) (val2 (* tmp 2))))#)
RESULT: nil
[<- 3 ] s|tep n|ext c|ont q|uit >