Bonjour à vous !
Je bosse sur un exo que j'aimerai bien comprendre : les macro en scheme
Je veux faire une macro until que je puisse utiliser ainsi :
1 2 3 4
| (let ((i 1))
(until (> i 10)
(write i)
(set! i (* i 2)))) |
J'ai fais ça, je veux seulement utiliser quasiquote ' :
1 2 3 4
| (define-macro (until test exp1 exp2)
'(do ()
(test)
exp1 exp2)) |
Vous l'aurez deviné, ça ne marche pas... Je ne suis pas du tout familier avec scheme, et même absolument pas, alors si vous pouvez me donner un coup de main et une explication, ça serait chouette !
Merci !!!!
Partager