init/scm.ly

   1 \scm "
   2 (define (add-column p) (display \"adding column (in guile): \") (display p) (newline))
   3 (define (dashed-slur o l) (newline) (display \"output type: \") (display o) (newline) (display \"controls: \") (map display l) (newline))
   4 ";
   5
   6 % deze is blond
   7 % ((lambda (o) (dashed-slur o '((0.0 0.0) (17.2124966172942 -16.8303258151405) (161.324688856776 -15.2124966172942) (178.155014671916 2.0)))) 'ps)
   8