Permalink
Browse files

fix (some) macros in base64 so http-get works.

  • Loading branch information...
1 parent 3071818 commit d2a5e7e30a38495cf385139e77124c41c13653aa @jonnay jonnay committed Sep 22, 2009
Showing with 8 additions and 8 deletions.
  1. +8 −8 string/base64.scm
View
16 string/base64.scm
@@ -19,17 +19,17 @@
; Representation of fifos.
-(##define-macro (macro-make-fifo)
+(define-macro (macro-make-fifo)
`(let ((fifo (##cons '() '())))
(macro-fifo-tail-set! fifo fifo)
fifo))
-(##define-macro (macro-fifo-next fifo) `(##cdr ,fifo))
-(##define-macro (macro-fifo-next-set! fifo x) `(##set-cdr! ,fifo ,x))
-(##define-macro (macro-fifo-tail fifo) `(##car ,fifo))
-(##define-macro (macro-fifo-tail-set! fifo x) `(##set-car! ,fifo ,x))
-(##define-macro (macro-fifo-elem fifo) `(##car ,fifo))
-(##define-macro (macro-fifo-elem-set! fifo x) `(##set-car! ,fifo ,x))
+(define-macro (macro-fifo-next fifo) `(##cdr ,fifo))
+(define-macro (macro-fifo-next-set! fifo x) `(##set-cdr! ,fifo ,x))
+(define-macro (macro-fifo-tail fifo) `(##car ,fifo))
+(define-macro (macro-fifo-tail-set! fifo x) `(##set-car! ,fifo ,x))
+(define-macro (macro-fifo-elem fifo) `(##car ,fifo))
+(define-macro (macro-fifo-elem-set! fifo x) `(##set-car! ,fifo ,x))
(##define-macro (macro-fifo->list fifo)
`(macro-fifo-next ,fifo))
@@ -58,7 +58,7 @@
(macro-fifo-next-set! head '())))
head)))
-(##define-macro (macro-fifo-insert-at-tail! fifo elem)
+(define-macro (macro-fifo-insert-at-tail! fifo elem)
`(let ((fifo ,fifo) (elem ,elem))
(let ((x (##cons elem '())))

0 comments on commit d2a5e7e

Please sign in to comment.