Changeset 29319 in project


Ignore:
Timestamp:
07/06/13 21:24:42 (7 years ago)
Author:
sjamaan
Message:

Don't check the same object's type twice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/scheme.base.scm

    r29316 r29319  
    110110
    111111(define (boolean=? b1 b2 . rest)
     112  (##sys#check-boolean b1 'boolean=?)
    112113  ;; Loop across all args, checking for booleans.  Don't shortcut and
    113114  ;; stop when we find nonequality.
     
    116117           (rest rest)
    117118           (result (eq? b1 b2)))
    118     (##sys#check-boolean b1 'boolean=?)
    119119    (##sys#check-boolean b2 'boolean=?)
    120120    (if (null? rest)
Note: See TracChangeset for help on using the changeset viewer.