15 lines
447 B
Text
15 lines
447 B
Text
(edit 'preferences)
|
|
;; current contents to edit is displayed in the input box
|
|
(define (preferences)
|
|
(define-syntax-rule (++ n) (begin (set! n (1+ n)) n))
|
|
(define-syntax-rule (% a b) (modulo a b))
|
|
;; (lib 'gloops)
|
|
(lib 'timer))
|
|
|
|
;; enter new preferences
|
|
(define (preferences)
|
|
(define FULLNAME "Foo Barber")
|
|
(define FAVOURITEFRUIT 'banana)
|
|
(define NEEDSPELLING #t)
|
|
; SEEDSREMOVED
|
|
(define OTHERFAMILY '("Rhu Barber" "Harry Barber")))
|