Changeset 38763 in project


Ignore:
Timestamp:
06/21/20 20:31:14 (3 weeks ago)
Author:
Kon Lovett
Message:

fix cond-expand else clause w/ multiple values using begin

File:
1 edited

Legend:

Unmodified
Added
Removed

  • release/5/coops-utils/trunk/object-uword-ref.scm

    r38400 r38763  
    1414            (pointer-u64-ref ?ptr) ) ) ) ) )
    1515  (else
    16     (define-constant C_UWORD_SIZE 4)
    17     (define-syntax pointer-uword-ref
    18       (syntax-rules ()
    19         ((pointer-uword-ref ?ptr ?idx)
    20           (pointer-u32-ref ?ptr) ) ) ) ) )
     16    (begin
     17      (define-constant C_UWORD_SIZE 4)
     18      (define-syntax pointer-uword-ref
     19        (syntax-rules ()
     20          ((pointer-uword-ref ?ptr ?idx)
     21            (pointer-u32-ref ?ptr) ) ) ) ) ) )
    2122
    2223(define-inline (object-uword-ref proc #!optional (idx 0))
Note: See TracChangeset for help on using the changeset viewer.