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

Disable fast list functions

Browse source 
Having problems getting macros to work in a safe way with Cyc-seq. Since these functions were never a big win anyway, we are going to disable them for now.
This commit is contained in:
Justin Ethier 2018-12-04 17:51:35 -05:00
parent c65977a6a2
commit 1a586b188c
2 changed files with 31 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
scheme/cyclone/primitives.sld
View file

@ -116,10 +116,10 @@
Cyc-default-exception-handler
Cyc-current-exception-handler
cons
Cyc-fast-list-1
Cyc-fast-list-2
Cyc-fast-list-3
Cyc-fast-list-4
;Cyc-fast-list-1
;Cyc-fast-list-2
;Cyc-fast-list-3
;Cyc-fast-list-4
cell-get
set-global!
set-cell!
@ -256,10 +256,10 @@
(Cyc-default-exception-handler 1 1)
(Cyc-current-exception-handler 0 0)
(cons 2 2)
(Cyc-fast-list-1 1 1)
(Cyc-fast-list-2 2 2)
(Cyc-fast-list-3 3 3)
(Cyc-fast-list-4 4 4)
;(Cyc-fast-list-1 1 1)
;(Cyc-fast-list-2 2 2)
;(Cyc-fast-list-3 3 3)
;(Cyc-fast-list-4 4 4)
(cell-get 1 1)
(set-global! 2 2)
(set-cell! 2 2)
@ -464,10 +464,10 @@
(member
p
'(;cons
Cyc-fast-list-1
;Cyc-fast-list-1
;Cyc-fast-list-2
Cyc-fast-list-3
Cyc-fast-list-4
;Cyc-fast-list-3
;Cyc-fast-list-4
;cell
))))
@ -483,10 +483,10 @@
;; This is to support C loops in place of recursion.
(cond
;((eq? p 'cons) "alloca_pair")
((eq? p 'Cyc-fast-list-1) "alloca_list_1")
;((eq? p 'Cyc-fast-list-1) "alloca_list_1")
;((eq? p 'Cyc-fast-list-2) "alloca_list_2")
((eq? p 'Cyc-fast-list-3) "alloca_list_3")
((eq? p 'Cyc-fast-list-4) "alloca_list_4")
;((eq? p 'Cyc-fast-list-3) "alloca_list_3")
;((eq? p 'Cyc-fast-list-4) "alloca_list_4")
;((eq? p 'cell) "alloca_cell")
(else
(_prim->c-func p))))
@ -643,11 +643,11 @@
((eq? p 'symbol?) "Cyc_is_symbol")
;((eq? p 'cons) "make_pair")
((eq? p 'cons) "set_pair_as_expr")
((eq? p 'Cyc-fast-list-1) "make_list_1")
((eq? p 'Cyc-fast-list-2) "set_list_2_as_expr")
;((eq? p 'Cyc-fast-list-2) "make_list_2")
((eq? p 'Cyc-fast-list-3) "make_list_3")
((eq? p 'Cyc-fast-list-4) "make_list_4")
;((eq? p 'Cyc-fast-list-1) "make_list_1")
;((eq? p 'Cyc-fast-list-2) "set_list_2_as_expr")
;;((eq? p 'Cyc-fast-list-2) "make_list_2")
;((eq? p 'Cyc-fast-list-3) "make_list_3")
;((eq? p 'Cyc-fast-list-4) "make_list_4")
;((eq? p 'cell) "make_cell")
((eq? p 'cell) "set_cell_as_expr")
((eq? p 'cell-get) "car") ;; Unsafe as cell gets added by compiler
@ -758,7 +758,7 @@
(cond
((eq? p 'cons) "pair_type")
((eq? p 'cell) "pair_type")
((eq? p 'Cyc-fast-list-2) "list_2_type")
;((eq? p 'Cyc-fast-list-2) "list_2_type")
((eq? p 'Cyc-fast-plus) "complex_num_type")
((eq? p 'Cyc-fast-sub) "complex_num_type")
((eq? p 'Cyc-fast-mul) "complex_num_type")
@ -872,10 +872,10 @@
command-line-arguments
Cyc-read-line
Cyc-read-char Cyc-peek-char
Cyc-fast-list-1
;Cyc-fast-list-1
;Cyc-fast-list-2
Cyc-fast-list-3
Cyc-fast-list-4
;Cyc-fast-list-3
;Cyc-fast-list-4
;cons
;cell
))

16
scheme/cyclone/transforms.sld
View file

@ -1024,14 +1024,14 @@
(cons 'Cyc-fast-member (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'assoc) (= (length ast) 3))
(cons 'Cyc-fast-assoc (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'list) (= (length ast) 2))
(cons 'Cyc-fast-list-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'list) (= (length ast) 3))
(cons 'Cyc-fast-list-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'list) (= (length ast) 4))
(cons 'Cyc-fast-list-3 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'list) (= (length ast) 5))
(cons 'Cyc-fast-list-4 (map (lambda (a) (convert a renamed)) (cdr ast))))
;;((and (eq? (car ast) 'list) (= (length ast) 2))
;; (cons 'Cyc-fast-list-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
;;((and (eq? (car ast) 'list) (= (length ast) 3))
;; (cons 'Cyc-fast-list-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;;((and (eq? (car ast) 'list) (= (length ast) 4))
;; (cons 'Cyc-fast-list-3 (map (lambda (a) (convert a renamed)) (cdr ast))))
;;((and (eq? (car ast) 'list) (= (length ast) 5))
;; (cons 'Cyc-fast-list-4 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'for-each) (= (length ast) 3))
(cons 'Cyc-for-each-loop-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'map) (= (length ast) 3))