new file, used for benchmarking.

diff --git a/ChangeLog b/ChangeLog
index 9dcee9e64c2af467d103977d85c9995ebfcf06e3..48237866db07f243977b04b2c375b215cc66c76e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-07-20  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * scm/framework-null.scm: new file, used for benchmarking.
+
 2005-07-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
        * scm/define-markup-commands.scm (beam): use polygon in beam

diff --git a/lily/parser.yy b/lily/parser.yy
index 2b5b6c0caae935773ae88ba89277a6e0604532b1..1f2c0d863a1a0609041f280cf555eb209679e2d2 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1524,15 +1524,6 @@ scalar: string {
        }
        | bare_number {
                $$ = $1;
-/*             if (scm_integer_p ($1) == SCM_BOOL_T)
-               {
-                       int k = scm_to_int (scm_inexact_to_exact ($1));
-                       $$ = k;
-               } else
-               {
-                       THIS->parser_error (@1, _ ("need integer number arg"));
-                       $$ = 0;
-               }*/
        }
         | embedded_scm {
                $$ = $1;

diff --git a/scm/framework-null.scm b/scm/framework-null.scm
new file mode 100644 (file)
index 0000000..89fae35
--- /dev/null
+++ b/scm/framework-null.scm
@@ -0,0 +1,28 @@
+;; module for benchmarking.
+
+(define-module (scm framework-null)
+  #:export (output-framework)
+  )
+
+(use-modules (ice-9 regex)
+            (ice-9 string-fun)
+            (ice-9 format)
+            (guile)
+            (srfi srfi-1)
+            (ice-9 pretty-print)
+            (srfi srfi-13)
+            (lily))
+
+(define-public (output-framework channel book scopes fields )
+
+  
+  #t)
+
+(define-public output-classic-framework output-framework)
+
+
+(define-public (convert-to-ps . args) #t)
+(define-public (convert-to-pdf . args) #t)
+(define-public (convert-to-png . args) #t)
+(define-public (convert-to-dvi . args) #t)
+(define-public (convert-to-tex . args) #t)