On 2021-09-20, 14:07 +0200, Stefan Israelsson Tampe <stefan.ita...@gmail.com>
wrote:
Note: Now I am using Guile straight out of main branch.
> I tested your code on my machine, it works! What version of guile are you
> using?
Again I think there is a confusion. The program I have written compiles
correctly BUT the output of the program in not desirable. Here is a
test:
1. Load "ambeval.scm"
2. Type (driver-loop) into your REPL session.
3. Copy and Paste following snippet:
(define (findout32 x)
(letrec ((even?
(lambda (n)
(if (= n 0)
#t
(odd? (- n 1)))))
(odd?
(lambda (n)
(if (= n 0)
#f
(even? (- n 1))))))
(cond
((even? x) 20)
((odd? x) 30)
(else 40))))
4. Type (findout32 10)
Output/Error:
;;; Starting a new problem ERROR: In procedure scm-error:
Unassigned variable -- LOOKUP-VARIABLE-VALUE odd?
Expected Output:
20
All the best,
Utkarsh Singh
--
Utkarsh Singh
https://utkarshsingh.xyz/
