diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:09:57 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-20 22:09:57 +0100 |
commit | d75ebbab2a414fe1a9a09d703a3bc7be782f1f1e (patch) | |
tree | 0de4f1c17afd6fbefbafc3a0a8a91bc85cb30355 /module/vulgar | |
parent | Document testrunner syntax. (diff) | |
parent | Documentation updates for util. (diff) | |
download | calp-d75ebbab2a414fe1a9a09d703a3bc7be782f1f1e.tar.gz calp-d75ebbab2a414fe1a9a09d703a3bc7be782f1f1e.tar.xz |
Merge Javascript rewrite.
Diffstat (limited to 'module/vulgar')
-rw-r--r-- | module/vulgar/termios.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm index 75181ff3..f88882c9 100644 --- a/module/vulgar/termios.scm +++ b/module/vulgar/termios.scm @@ -102,7 +102,7 @@ ;; Macro for creating accessor bindings for slots in a list, which are wrapped ;; inside a <termios> record. Called exactly once below. (define-macro (create-bindings! . symbols) - `(begin ,@(map-each + `(begin ,@(map (lambda (symb i) `(define-public ,symb (make-procedure-with-setter @@ -110,7 +110,8 @@ (lambda (t v) (let ((lst (as-list t))) (list-set! lst ,i v) (set-list! t lst)))))) - symbols))) + symbols + (iota (length symbols))))) (create-bindings! ; accessors iflag oflag cflag lflag line cc ispeed ospeed) |