Changeset 13601 in project


Ignore:
Timestamp:
03/08/09 19:15:08 (11 years ago)
Author:
sjamaan
Message:

Add debug logging to ssp handler, and fix bug triggered under missing closing tag condition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/ssp-handler.scm

    r12527 r13601  
    7979         (display "\n(display \"")
    8080         (scan end) ]
    81         [_ #;(log 'debug "Warning: missing closing tag (~S)" ssp-close-tag)
    82            (display "\n; Warning: missing closing tag\n") ] ) )
     81        [_ (log-to (debug-log) "(ssp) Warning: missing closing tag (~S)" ssp-close-tag)
     82           (display ")\n; Warning: missing closing tag at end of file\n")] ) )
    8383    (define (slashify-char c)
    8484      (case c
     
    104104      (let ([fn2 (pathname-replace-extension fn "sspx")])
    105105        (when (or (not (file-exists? fn2)) (< (file-modification-time fn2) (file-modification-time fn)))
    106               #;(log 'debug "(ssp) translating file ~A ..." fn)
     106              (log-to (debug-log) "(ssp) translating file ~A ..." fn)
    107107              (translate-file fn))
    108108        (load-scheme fn2)))))
     
    117117
    118118(define (load-scheme-file filename)
    119   #;(log 'debug "Loading ~A ..." filename)
     119  (log-to (debug-log) "(ssp) loading ~A ..." filename)
    120120  (call/cc
    121121   (lambda (return)
Note: See TracChangeset for help on using the changeset viewer.