Changeset 15077 in project for chicken

Timestamp:

06/27/09 15:07:40 (12 years ago)

Author:

felix winkelmann

Message:

minor doc and compiler fixes; tested compiler-syntax

Location:

chicken/trunk

Files:

• chicken-install.scm (modified) (1 diff)
• compiler.scm (modified) (2 diffs)
• distribution/manifest (modified) (1 diff)
• manual/Acknowledgements (modified) (1 diff)
• manual/Unit files (modified) (1 diff)
• manual/Unit utils (modified) (1 diff)
• scripts/test-dist.sh (modified) (1 diff)
• scripts/wiki2html.scm (modified) (1 diff)
• tests/runtests.sh (modified) (1 diff)

chicken/trunk/chicken-install.scm

@@ -63 +63 @@
       "csi.import.so"
       "irregex.import.so"
-      "compiler.import.so"))
+      "types.db"))
 
   (define *program-path*

chicken/trunk/compiler.scm

@@ -771 +771 @@
                                (body (caddr x))
                                (name (##sys#strip-syntax var se #t)))
-                           (##sys#put! 
-                            name '##compiler#compiler-syntax
-                            (##sys#cons
-                             (##sys#er-transformer (eval/meta body))
-                             (##sys#current-environment)))
-                          (##sys#register-meta-expression 
-                           `(##sys#put! 
-                             (##core#syntax ,name)
-                             '##compiler#compiler-syntax
-                             (##sys#cons
-                              (##sys#er-transformer ,body)
-                              (##sys#current-environment))) )
+                          (##sys#put! 
+                           name '##compiler#compiler-syntax
+                           (##sys#cons
+                            (##sys#er-transformer (eval/meta body))
+                            (##sys#current-environment)))
                           (walk '(##core#undefined) e se dest)))
 
@@ -791 +784 @@
                                            (list 
                                             name 
-                                            (cons (##sys#er-transformer (eval/meta (cadr x))) se)
+                                            (cons (##sys#er-transformer (eval/meta (cadr b))) se)
                                             (##sys#get name '##compiler#compiler-syntax) ) ) )
                                        (cadr x))))

chicken/trunk/distribution/manifest

@@ -237 +237 @@
 tests/lolevel-tests.scm
 tests/feeley-dynwind.scm
+tests/compiler-syntax-tests.scm
 tweaks.scm
 utils.scm

chicken/trunk/manual/Acknowledgements

@@ -15 +15 @@
 Egesund, Steve Elkins, Daniel B. Faken, Will Farr, Graham Fawcett,
 Marc Feeley, Fizzie, Matthew Flatt, Kimura Fuyuki, Tony Garnock-Jones,
-Martin Gasbichler, Joey Gibson, Stephen C. Gilardi, Joshua Griffith,
-Johannes Groedem, Damian Gryski, Mario Domenech Goulart, Andreas
-Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino, Ahdi Hargo,
-Matthias Heiler, Karl M. Hegbloom, William P. Heinemann, Bill Hoffman,
-Bruce Hoult, Hans Huebner, Markus Huelsmann, Goetz Isenmann, Paulo
-Jabardo, Wietse Jacobs, David Janssens, Christian Jaeger, Matt Jones,
-Dale Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Brad
-Kind, Ron Kneusel, Matthias Koeppe, Krysztof Kowałczyk, Andre
-Kuehne, Todd R. Kueny Sr, Goran Krampe, David Krentzlin, Ben Kurtz,
-Micky Latowicki, John Lenz, Kirill Lisovsky, Juergen Lorenz, Kon
-Lovett, Lam Luu, Leonardo Valeri Manera, Dennis Marti, Charles Martin,
-Bob McIsaac, Alain Mellan, Eric Merrit, Perry Metzger, Scott
-G. Miller, Mikael, Bruce Mitchener, Chris Moline, Eric E. Moore,
-Julian Morrison, Dan Muresan, Lars Nilsson, Ian Oversby, o.t., Gene
-Pavlovsky, Levi Pearson, Nicolas Pelletier, Carlos Pita, Robin Lee
-Powell, Pupeno, Davide Puricelli, presto, Doug Quale, Eric Raible,
-Ivan Raikov, Joel Reymont, Eric Rochester, Andreas Rottman, David
-Rush, Lars Rustemeier, Daniel Sadilek, Oskar Schirmer, Burton
+Martin Gasbichler, Abdulaziz Ghuloum, Joey Gibson, Stephen C. Gilardi,
+Mario Domenech Goulart, Joshua Griffith, Johannes Groedem, Damian
+Gryski, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino,
+Ahdi Hargo, Matthias Heiler, Karl M. Hegbloom, William P. Heinemann,
+Bill Hoffman, Bruce Hoult, Hans Huebner, Markus Huelsmann, Goetz
+Isenmann, Paulo Jabardo, Wietse Jacobs, David Janssens, Christian
+Jaeger, Matt Jones, Dale Jordan, Valentin Kamyshenko, Daishi Kato,
+Peter Keller, Brad Kind, Ron Kneusel, Matthias Koeppe, Krysztof
+Kowałczyk, Andre Kuehne, Todd R. Kueny Sr, Goran Krampe, David
+Krentzlin, Ben Kurtz, Micky Latowicki, John Lenz, Kirill Lisovsky,
+Juergen Lorenz, Kon Lovett, Lam Luu, Leonardo Valeri Manera, Dennis
+Marti, Charles Martin, Bob McIsaac, Alain Mellan, Eric Merrit, Perry
+Metzger, Scott G. Miller, Mikael, Bruce Mitchener, Chris Moline, Eric
+E. Moore, Julian Morrison, Dan Muresan, Lars Nilsson, Ian Oversby,
+o.t., Gene Pavlovsky, Levi Pearson, Nicolas Pelletier, Carlos Pita,
+Robin Lee Powell, Pupeno, Davide Puricelli, presto, Doug Quale, Eric
+Raible, Ivan Raikov, Joel Reymont, Eric Rochester, Andreas Rottman,
+David Rush, Lars Rustemeier, Daniel Sadilek, Oskar Schirmer, Burton
 Samograd, Reed Sheridan, Ronald Schroeder, Spencer Schumann, Ivan
 Shcheklein, Alex Shinn, Ivan Shmakov, Shmul, Tony Sidaway, Jeffrey

chicken/trunk/manual/Unit files

@@ -82 +82 @@
 stripped.
 
+==== normalize-pathname
+
+<procedure>(normalize-pathname PATHNAME [PLATFORM])</procedure>
+
+Performs a simple "normalization" on the {{PATHNAME}}, suitably for
+{{PLATFORM}}, which defaults to the value of {{(build-platform)}}.
+Currently, this just converts forward slashes to backslashes on Windows.
+
 ==== directory-null?
 

chicken/trunk/manual/Unit utils

@@ -62 +62 @@
 port that is the current value of {{(current-input-port)}}.
 
+
+=== Shell argument quoting
+
+==== qs
+
+ [procedure] (qs STRING [PLATFORM])
+
+Escapes {{STRING}} suitably for passing to a shell command on {{PLATFORM}}.
+{{PLATFORM}} defaults to the value of {{(build-platform)}} and indicates in
+which style the argument should be quoted. On Windows systems, the string
+is simply enclosed in double-quote ({{"}}) characters, on UNIXish systems,
+characters that would have a special meaning to the shell are escaped
+using backslash ({{\}}).
+
+
 ---
 Previous: [[Unit posix]]

chicken/trunk/scripts/test-dist.sh

@@ -74 +74 @@
 
 # Install a few eggs
+$prefix/bin/chicken-install prometheus
 $prefix/bin/chicken-install opengl
 

chicken/trunk/scripts/wiki2html.scm

@@ -221 +221 @@
         (('procedure strs ...)
          `(pre "\n [procedure] " ,@strs))
+        (('nowiki content ...)
+         `(div ,content))
         (((? symbol? tag) ('@ attr ...) . body)
          `(,tag (@ ,@attr) ,@(map walk body)))

chicken/trunk/tests/runtests.sh

@@ -63 +63 @@
 #$compile_s -s foo.import.scm
 #$interpret -bnq -e '(require-library meta-syntax-test)' -e '(import foo)' -e '(bar 1 2)'
+
+echo "======================================== compiler syntax tests ..."
+$compile compiler-syntax-tests.scm
+./a.out
 
 echo "======================================== import library tests ..."