Skip to content

Commit

Permalink
tiny compiler improvements
Browse files Browse the repository at this point in the history
darcs-hash:20080526003220-c0035-0c8df4331d9633be31e034e0d41b2aabdd83ba60
  • Loading branch information
Kragen Javier Sitaker committed May 26, 2008
1 parent 756b86d commit 40351e6
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions compiler.scm
Original file line number Diff line number Diff line change
Expand Up @@ -189,7 +189,7 @@
;; starting at "destidx"
;; XXX needs a !
(define (string-blit! src srcidx len dest destidx) ; duplicated in stdlib
(if (= len 0) #f
(if (not (= len 0))
(begin (string-set! dest destidx (string-ref src srcidx))
(string-blit! src (1+ srcidx) (1- len) dest (1+ destidx)))))

Expand Down Expand Up @@ -1785,6 +1785,7 @@
(lambda (args) (list '%ifeq (car args) #f (caddr args) (cadr args))))

;; Expand all macros in expr, recursively.
;; XXX rename to macroexpand-all
(define (totally-macroexpand expr)
(cond ((relevant-macro-definition expr)
(totally-macroexpand (macroexpand-1 expr)))
Expand Down Expand Up @@ -2084,7 +2085,7 @@
;; copies "len" chars from "src" starting at "srcidx" to "dest"
;; starting at "destidx"
(define (string-blit! src srcidx len dest destidx)
(if (= len 0) #f
(if (not (= len 0))
(begin (string-set! dest destidx (string-ref src srcidx))
(string-blit! src (1+ srcidx) (1- len) dest (1+ destidx)))))

Expand Down

0 comments on commit 40351e6

Please sign in to comment.