doc/m4.scm

   1 (define (f1 x) (* 2 (f2 x)))
   2 (display "hello from m4")
   3 (newline)
   4
   5 (c-declare #<<c-declare-end
   6 #include "x.h"
   7 c-declare-end
   8 )
   9 (define x-initialize (c-lambda (char-string) bool "x_initialize"))
  10 (define x-display-name (c-lambda () char-string "x_display_name"))
  11 (define x-bell (c-lambda (int) void "x_bell"))