Testing Code Highlighting Redux

I have been playing around with adding syntax highlighting for Scheme using syntaxhighlighter (albeit an old version of the tool). Here is a little test to see if it worked.

view plainprint?

1. (define (probe name connector)  
2.   ;; comment  
3.   (define (print-probe value)  
4.     (newline)  
5.     (display "Probe: ")  
6.     (display name)  
7.     (display " = ")  
8.     (display value))  
9.   (define (process-new-value)  
10.     (print-probe (get-value connector)))  
11.   (define (process-forget-value)  
12.     (print-probe "?"))  
13.   (define (me request)  
14.     (cond ((eq? request 'I-have-a-value)  
15.            (process-new-value))  
16.           ((eq? request 'I-lost-my-value)  
17.            (process-forget-value))  
18.           (else  
19.            (error "Unknown request -- PROBE" request))))  
20.   (connect connector me)  
21.   me)  

(define (probe name connector) ;; comment (define (print-probe value) (newline) (display "Probe: ") (display name) (display " = ") (display value)) (define (process-new-value) (print-probe (get-value connector))) (define (process-forget-value) (print-probe "?")) (define (me request) (cond ((eq? request 'I-have-a-value) (process-new-value)) ((eq? request 'I-lost-my-value) (process-forget-value)) (else (error "Unknown request -- PROBE" request)))) (connect connector me) me)