~ chicken-core (chicken-5) 3ae42449f6c919ef241c71d5555a1175aee042e1
commit 3ae42449f6c919ef241c71d5555a1175aee042e1 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Sun Apr 4 23:47:40 2010 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Sun Apr 4 23:47:40 2010 +0200 fixed use of internal eqv? alias in expansion of case (thanks to Vitaly Magerya) diff --git a/expand.scm b/expand.scm index 774b7195..996c45ff 100644 --- a/expand.scm +++ b/expand.scm @@ -1178,6 +1178,7 @@ (body (cddr form)) ) (let ((tmp (r 'tmp)) (%or (r 'or)) + (%eqv? (r 'eqv?)) (%else (r 'else))) `(let ((,tmp ,exp)) ,(let expand ((clauses body) (else? #f)) @@ -1197,8 +1198,7 @@ '(##core#begin)) (else `(##core#if (,%or ,@(##sys#map - (lambda (x) - `(##sys#eqv? ,tmp ',x)) + (lambda (x) `(,%eqv? ,tmp ',x)) (car clause))) (##core#begin ,@(cdr clause)) ,(expand rclauses #f) ) ) ) ) ) ) ) ) ) ) ) ) diff --git a/manual/Acknowledgements b/manual/Acknowledgements index d205d10a..a2c1f61e 100644 --- a/manual/Acknowledgements +++ b/manual/Acknowledgements @@ -19,33 +19,33 @@ 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, Fadi Moukayed, Chris Moline, Eric -E. Moore, Julian Morrison, Dan Muresan, David N. Murray, Lars Nilsson, -Ian Oversby, o.t., Gene Pavlovsky, Levi Pearson, Jeronimo Pellegrini, -Nicolas Pelletier, Derrell Piper, 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 B. Siegal, Andrey -Sidorenko, Michele Simionato, Volker Stolz, Jon Strait, Dorai Sitaram, -Robert Skeels, Jason Songhurst, Clifford Stein, Sunnan, Zbigniew -Szadkowski, Rick Taube, Nathan Thern, Mike Thomas, Minh Thu, Christian -Tismer, Andre van Tonder, John Tobey, Henrik Tramberend, Vladimir -Tsichevsky, Neil van Dyke, Sam Varner, Taylor Venable, Sander Vesik, -Jaques Vidrine, Panagiotis Vossos, Shawn Wagner, Peter Wang, Ed -Watkeys, Brad Watson, Thomas Weidner, Goeran Weinholt, Matthew -Welland, Drake Wilson, Joerg Wittenberger, Peter Wright, Mark Wutka, -Richard Zidlicky and Houman Zolfaghari for bug-fixes, tips and -suggestions. +Hoffman, Bruce Hoult, Hans Hübner, 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, Vitaly Magerya, Leonardo Valeri +Manera, Dennis Marti, Charles Martin, Bob McIsaac, Alain Mellan, Eric +Merrit, Perry Metzger, Scott G. Miller, Mikael, Bruce Mitchener, Fadi +Moukayed, Chris Moline, Eric E. Moore, Julian Morrison, Dan Muresan, +David N. Murray, Lars Nilsson, Ian Oversby, o.t., Gene Pavlovsky, Levi +Pearson, Jeronimo Pellegrini, Nicolas Pelletier, Derrell Piper, 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 B. Siegal, Andrey Sidorenko, Michele Simionato, Volker Stolz, +Jon Strait, Dorai Sitaram, Robert Skeels, Jason Songhurst, Clifford +Stein, Sunnan, Zbigniew Szadkowski, Rick Taube, Nathan Thern, Mike +Thomas, Minh Thu, Christian Tismer, Andre van Tonder, John Tobey, +Henrik Tramberend, Vladimir Tsichevsky, Neil van Dyke, Sam Varner, +Taylor Venable, Sander Vesik, Jaques Vidrine, Panagiotis Vossos, Shawn +Wagner, Peter Wang, Ed Watkeys, Brad Watson, Thomas Weidner, Goeran +Weinholt, Matthew Welland, Drake Wilson, Joerg Wittenberger, Peter +Wright, Mark Wutka, Richard Zidlicky and Houman Zolfaghari for +bug-fixes, tips and suggestions. CHICKEN uses the "irregex" regular expression package written by Alex Shinn.Trap