(process-multiline-directive): Allow the fname attribute to a sequence
authorMarius Vollmer <mvo@zagadka.de>
Tue, 9 Nov 2004 13:54:22 +0000 (13:54 +0000)
committerMarius Vollmer <mvo@zagadka.de>
Tue, 9 Nov 2004 13:54:22 +0000 (13:54 +0000)
of strings and append them all to form the fname.  This is needed for
string literals like "u8""vector?".

scripts/snarf-check-and-output-texi

index a74eee0..ad5c7a2 100755 (executable)
@@ -254,8 +254,8 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
      (('cname ('id . name))
       (set! *c-function-name* (texi-quote (symbol->string name))))
 
-     (('fname ('string . name))
-      (set! *function-name* (texi-quote name)))
+     (('fname ('string . name) ...)
+      (set! *function-name* (texi-quote (apply string-append name))))
 
      (('type ('id . type))
       (set! *snarf-type* type))