Changeset 8831 in project


Ignore:
Timestamp:
02/24/08 20:32:07 (12 years ago)
Author:
svnwiki
Message:

Changes applied for Anonymous (69.70.120.46) through svnwiki:

Fixed it <scheme> & </scheme> needed to be on the same line

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/jean-philippe-theberge

    r8824 r8831  
    55
    66You can reach by email at:
    7 <scheme>
    8 (let ((string-join (lambda (items delim)
    9                       (if (null? items)
    10                           ""
    11                         (let loop ((result '())
    12                                    (items items))
    13                              (if (null? items)
    14                                  (apply string-append (reverse (cdr result)))
    15                                (loop (cons delim (cons (car items) result))
    16                                      (cdr items)))))))
    17                        
    18        (mailto (lambda (mail)
    19                  (let ((estr (string-join (map (lambda (c)
    20                                                  (number->string (char->integer c)))
    21                                                (string->list mail)) ",")))
    22                    (print (string-append "<script type=\"text/javascript\">\n"
    23                                          "document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58,"
    24                                          estr
    25                                          ",34,62,"
    26                                          estr
    27                                          ",60,47,97,62))"
    28                                          "\n</script>"))))))
    29   (mailto "jphiltheberge@gmail.com"))
    30 </scheme>
     7<scheme>(let ((string-join (lambda (items delim)(if (null? items) "" (let loop ((result '())(items items))(if (null? items) (apply string-append (reverse (cdr result)))(loop (cons delim (cons (car items) result))(cdr items)))))))(mailto (lambda (mail) (let ((estr (string-join (map (lambda (c)(number->string (char->integer c))) (string->list mail)) ",")))(display (string-append "<script type=\"text/javascript\">\n" "document.write(String.fromCharCode(60,97,32,104,114,101,102,61,34,109,97,105,108,116,111,58," estr ",34,62," estr ",60,47,97,62))" "\n</script>"))))))  (mailto "jphiltheberge@gmail.com"))</scheme>
    318
    329 
Note: See TracChangeset for help on using the changeset viewer.