Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
|
- #lang br/quicklang
-
- (provide (rename-out [z-module-begin #%module-begin])
- val
- z-ld)
-
- (define-macro (z-module-begin (z-program LINE ...))
- #'(#%module-begin
- (define-values (A B C D E F H L)
- (values 0 0 0 0 0 0 0 0))
- (set! A 8)
- LINE ...
- (displayln
- (format "A: ~a ; F: ~a\nB: ~a ; C: ~a\nD: ~a ; E: ~a\nH: ~a ; L: ~a"
- A F B C D E H L))))
-
- (define (val h x)
- (if (symbol? x)
- (hash-ref h x)
- x))
-
- (define-macro-cases z-ld
- [(_ (z-r8 S) (_ D)) #'(set! S (val D))])
|