/[guile]/guile/guile-core/libguile/guile-snarf.in
ViewVC logotype

Diff of /guile/guile-core/libguile/guile-snarf.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by ttn, Thu Mar 14 03:19:30 2002 UTC revision 1.16 by mvo, Thu Mar 14 22:21:53 2002 UTC
# Line 45  Line 45 
45  modern_snarf ()                         # writes stdout  modern_snarf ()                         # writes stdout
46  {  {
47  ${cpp} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} && cpp_ok_p=true  ${cpp} -DSCM_MAGIC_SNARF_INITS "$@" > ${temp} && cpp_ok_p=true
48  grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//"  grep "^ *\^ *\^" ${temp} | sed -e "s/^ *\^ *\^//" -e "s/\^\ *:\ *\^.*/;/"
49  }  }
50    
51  compat_mode_clean_xxx ()                # modifies $1  compat_mode_clean_xxx ()                # modifies $1

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26