sly/mode.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

(define-module (sly mode)
  #:use-module (srfi srfi-9))

(define-record-type <mode>
  (make-mode module vars)
  mode?
  (module mode-module)
  (vars mode-vars))

(define foo-mode
  (make-mode
   (current-module)
   (variables
    ((foo 100)))))

(define-mode foo-mode
  )

(module-define! (current-module) 'foo 10)
foo

(make-variable)