3ed2d19eab
fixing up the namespace stuff so it goes through getters and setters trying to add the necessary to the il, but running into typed racket issues corrected compilation of toplevelref so it works more correctly on module variables.
22 lines
336 B
Racket
22 lines
336 B
Racket
#lang planet dyoo/whalesong
|
|
(require (for-syntax racket/base))
|
|
(provide x x++ x+1 x=0 get-x)
|
|
(define x 0)
|
|
|
|
(define (set-x v)
|
|
(set! x v))
|
|
|
|
(define (get-x)
|
|
x)
|
|
|
|
(define-syntax (x++ stx)
|
|
#'(plusplus-x))
|
|
|
|
(define-syntax (x+1 stx)
|
|
#'(set-x (add1 x)))
|
|
|
|
(define (plusplus-x)
|
|
(set! x (add1 x)))
|
|
|
|
(define-syntax (x=0 stx)
|
|
#'(set-x 0)) |