Changeset 16108 in project for chicken


Ignore:
Timestamp:
09/29/09 09:22:34 (10 years ago)
Author:
felix
Message:

removed pointless internal library function; removed commented out bug in optimizer; line-break in scrutinizer error message

Location:
chicken/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r15972 r16108  
    48134813              (values prop (##sys#slot tl 0) nxt)
    48144814              (loop nxt) ) ) ) ) )
    4815 
    4816 
    4817 ;;; Inline cache
    4818 
    4819 (define (##sys#inline-cache box thunk)
    4820   (or (##sys#slot box 0)
    4821       (let ((tmp (thunk)))
    4822         (##sys#setslot box 0 tmp)
    4823         tmp)))
  • chicken/trunk/optimizer.scm

    r15946 r16108  
    202202          ((let)
    203203           (let ([var (first params)])
    204              (cond [(or ;(test var 'replacable)
    205                         (test var 'removable)
     204             (cond [(or (test var 'removable)
    206205                        (and (test var 'contractable) (not (test var 'replacing))) )
    207206                    (touch)
  • chicken/trunk/scrutinizer.scm

    r15246 r16108  
    119119         loc
    120120         (sprintf
    121           "expected value of type boolean in conditional but were given a value of type `~a' which is always true:~%~%~a"
     121          "expected value of type boolean in conditional but were given a value of\ntype `~a' which is always true:~%~%~a"
    122122          t
    123123          (pp-fragment x))))
Note: See TracChangeset for help on using the changeset viewer.