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

Revert I/O changes for now

Browse source
This commit is contained in:
Justin Ethier 2018-11-30 17:50:34 -05:00
parent f5b7c75184
commit 69a35f7d2e
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/primitives.sld
View file

@ -770,11 +770,11 @@
;; EG: int v = prim();
(define (prim/c-var-assign p)
(cond
;((eq? p 'Cyc-stdout) "port_type")
;((eq? p 'Cyc-stdin) "port_type")
;((eq? p 'Cyc-stderr) "port_type")
;((eq? p 'open-input-file) "port_type")
;((eq? p 'open-output-file) "port_type")
((eq? p 'Cyc-stdout) "port_type")
((eq? p 'Cyc-stdin) "port_type")
((eq? p 'Cyc-stderr) "port_type")
((eq? p 'open-input-file) "port_type")
((eq? p 'open-output-file) "port_type")
;((eq? p 'Cyc-fast-plus) "object")
;((eq? p 'Cyc-fast-sub) "object")
;((eq? p 'Cyc-fast-mul) "object")
@ -828,11 +828,11 @@
(and (prim? exp)
(or
(member exp '(
;Cyc-stdout
;Cyc-stdin
;Cyc-stderr
;open-input-file
;open-output-file
Cyc-stdout
Cyc-stdin
Cyc-stderr
open-input-file
open-output-file
Cyc-installation-dir
Cyc-compilation-environment
string->number