Changeset 27245 in project


Ignore:
Timestamp:
08/14/12 01:41:16 (9 years ago)
Author:
svnwiki
Message:

Anonymous wiki edit for IP [24.205.81.111]:

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/users/peter-danenberg

    r27244 r27245  
    1212<procedure>(debug-print key value out) → unspecified</procedure>
    1313Print key-value pairs if the parameter [[#debug|{{debug?}}]] is true.
    14 ==== Parameters
     14
    1515; key : The key to print
    1616; value : The value to print
    1717; out : The port whereto to print
     18
     19<enscript highlight="scheme">
     20(define debug-print
     21  (case-lambda
     22    ((key value) (debug-print key value #t))
     23    ((key value out) (if (debug?) (format out "~a: ~a~%" key value)))))
     24</enscript>
     25
     26=== {{debug-print}}
     27
     28Print key-value pairs if the parameter [[#debug|{{debug?}}]] is true.
     29
     30; key : The key to print
     31; value : The value to print
     32; out : The port whereto to print
     33
Note: See TracChangeset for help on using the changeset viewer.