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

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-02-03 03:20:52 -05:00
parent 6f97d019ad
commit 9f1de7dd1d
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
kons.scm
View file

@ -1,7 +1,8 @@
;; A temporary test file
(import (scheme base)
(scheme write)
(srfi 9))
(srfi 9)
)
;((lambda ()
;
@ -23,7 +24,7 @@
;))
;))
;(define <pare> (register-simple-type <pare> #f (quote (x y))))
(define <pare> (register-simple-type <pare> #f (quote (x y))))
;(define pare? vector?) ;(make-type-predicate pare? <pare>))
;(define kons
; ((lambda (%make)
@ -34,11 +35,11 @@
; res)
; (%make))))
; (make-constructor "kons" <pare>)))
(write
;(write
; (list
; (pare? (kons 1 2))
(pair? (cons 1 2))
);)
; (pare? (cons 1 4))
;))
;(define (make-lambda)
; (lambda (a b c) (write (+ a b c))))