From b44308f03bb7160576bc065edffff0394a3d325c Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 18 Oct 2016 21:31:07 -0400 Subject: [PATCH] Minor speed increase --- scheme/read.sld | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/read.sld b/scheme/read.sld index 51f3dbe6..60c3ee8d 100644 --- a/scheme/read.sld +++ b/scheme/read.sld @@ -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))