Ignore:
Timestamp:
02/02/08 22:11:54 (14 years ago)
Author:
Kon Lovett
Message:

Rel 3.1, adds -directory stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/misc-extn/trunk/misc-extn-control-support.scm

    r5438 r8075  
    66(eval-when (compile)
    77  (declare
     8    (usual-integrations)
    89    (fixnum)
    910    (inline)
     
    1112    (no-bound-checks)
    1213    (export
    13       assure identify-error errorf) ) )
     14      assure
     15      identify-error
     16      errorf) ) )
    1417
    1518;;; Error Invocation
     
    1821
    1922(define (assure exp . err-args)
    20         (or exp (apply error err-args)))
     23        (or exp
     24            (apply error err-args)))
    2125
    2226;; Print error message but don't throw an exception
     
    4751      (set! loc format-string)
    4852      (if (null? rest)
    49         (set! format-string #f)
    50         (begin
    51           (set! format-string (car rest))
    52           (set! rest (cdr rest)) ) ) )
     53          (set! format-string #f)
     54          (begin
     55            (set! format-string (car rest))
     56            (set! rest (cdr rest)) ) ) )
    5357    (if format-string
    54       (error loc (apply format format-string rest))
    55       (error loc) ) ) )
     58        (error loc (apply format format-string rest))
     59        (error loc) ) ) )
Note: See TracChangeset for help on using the changeset viewer.