libguile/cpp_cnvt.awk

   1 # Converts a list of symbols into C expressions which define the symbols
   2 # in Guile.
   3 {
   4 print "#ifdef " $0;
   5 print "scm_sysintern (\""$0"\", SCM_MAKINUM ("$0"));";
   6 print "#endif"
   7 }