Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Pass a value to (set!) a parameter object

Browse source 
Allow changing a parameter object by passing a value directly to it.
This commit is contained in:
Justin Ethier 2016-08-31 03:05:34 -04:00
parent cec9e5c954
commit def5bba06a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -925,7 +925,9 @@
((eq? (car args) '<param-convert>) ((eq? (car args) '<param-convert>)
converter) converter)
(else (else
(error "bad parameter syntax" args)))))) ;(error "bad parameter syntax" args)
(set! value (converter (car args)))
)))))
(define current-output-port (define current-output-port
(make-parameter (Cyc-stdout))) (make-parameter (Cyc-stdout)))
(define current-input-port (define current-input-port