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

Minor speed increase

Browse source
This commit is contained in:
Justin Ethier 2016-10-18 21:31:07 -04:00
parent 3ee2b290fb
commit b44308f03b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/read.sld
View file

@ -36,12 +36,12 @@
;; TODO: unreg-port - delete fp entry from *in-port-table*
;; would want to do this when port is closed
(define (in-port:get-buf ptbl) (cadr ptbl))
(define (in-port:get-lnum ptbl) (caddr ptbl))
(define (in-port:get-cnum ptbl) (cadddr ptbl))
;(define in-port:get-buf cadr)
;(define in-port:get-lnum caddr)
;(define in-port:get-cnum cadddr)
;(define (in-port:get-buf ptbl) (cadr ptbl))
;(define (in-port:get-lnum ptbl) (caddr ptbl))
;(define (in-port:get-cnum ptbl) (cadddr ptbl))
(define in-port:get-buf cadr)
(define in-port:get-lnum caddr)
(define in-port:get-cnum cadddr)
(define (in-port:set-buf! ptbl buf) (set-car! (cdr ptbl) buf))
(define (in-port:set-lnum! ptbl lnum) (set-car! (cddr ptbl) lnum))
(define (in-port:set-cnum! ptbl cnum) (set-car! (cdddr ptbl) cnum))