diff --git a/piclib/prelude.scm b/piclib/prelude.scm
index 35442d50..d6c5ab89 100644
--- a/piclib/prelude.scm
+++ b/piclib/prelude.scm
@@ -145,19 +145,6 @@
        (let ((x (cadr form)))
          (qq 1 x)))))
 
-  #;
-  (define-syntax let*
-    (ir-macro-transformer
-     (lambda (form inject compare)
-       (let ((bindings (cadr form))
-             (body (cddr form)))
-         (if (null? bindings)
-             `(let () ,@body)
-             `(let ((,(caar bindings)
-                     ,@(cdar bindings)))
-                (let* (,@(cdr bindings))
-                  ,@body)))))))
-
   (define-syntax let*
     (er-macro-transformer
      (lambda (form r compare)