Changeset 10093 in project


Ignore:
Timestamp:
03/23/08 01:05:27 (12 years ago)
Author:
Kon Lovett
Message:

Added single eval of strm in stream-cons

Location:
release/3/srfi-40
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/srfi-40/tags/1.7/srfi-40.scm

    r10092 r10093  
    1313  [hygienic-macros
    1414
     15    ;; STREAM-LOW-LEVEL-LAZY -- an "atomic" (delay (force ...))
    1516    ; Use vector rather than box to avoid having to export box:
    16     ;; STREAM-LOW-LEVEL-LAZY -- an "atomic" (delay (force ...))
    1717    (define-syntax stream-low-level-lazy
    1818      (syntax-rules ()
     
    3232          (##srfi-40#make-stream
    3333            (stream-low-level-delay
    34               (if (not (stream? strm))
    35                   (stream-error "attempt to stream-cons onto non-stream")
    36                   (cons obj strm)))))))
     34              (let ((strm-val strm))
     35                (if (not (stream? strm-val))
     36                     (stream-error "attempt to stream-cons onto non-stream")
     37                     (cons obj strm-val))))))))
    3738
    3839    ;; STREAM-DELAY object -- the essential stream mechanism
  • release/3/srfi-40/trunk/srfi-40.scm

    r10092 r10093  
    1313  [hygienic-macros
    1414
     15    ;; STREAM-LOW-LEVEL-LAZY -- an "atomic" (delay (force ...))
    1516    ; Use vector rather than box to avoid having to export box:
    16     ;; STREAM-LOW-LEVEL-LAZY -- an "atomic" (delay (force ...))
    1717    (define-syntax stream-low-level-lazy
    1818      (syntax-rules ()
     
    3232          (##srfi-40#make-stream
    3333            (stream-low-level-delay
    34               (if (not (stream? strm))
    35                   (stream-error "attempt to stream-cons onto non-stream")
    36                   (cons obj strm)))))))
     34              (let ((strm-val strm))
     35                (if (not (stream? strm-val))
     36                     (stream-error "attempt to stream-cons onto non-stream")
     37                     (cons obj strm-val))))))))
    3738
    3839    ;; STREAM-DELAY object -- the essential stream mechanism
Note: See TracChangeset for help on using the changeset viewer.