# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545424434 18000
# Node ID 159c993863c4f601def19e60175e2b874c1417ac
# Parent  f84403802761b05f84dd7ce7556019d20b24ecd1
Less

diff -r f84403802761 -r 159c993863c4 lisp/compile-parenscript.ros
--- a/lisp/compile-parenscript.ros	Fri Dec 21 15:30:51 2018 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,50 +0,0 @@
-#!/bin/sh
-#|-*- mode:lisp -*-|#
-#|
-exec ros -Q -- $0 "$@"
-|#
-
-#|
-
-A Roswell script to compile Parenscript files.
-
-Usage
------
-
-    $ compile-parenscript filename...
-
-LICENSE
--------
-
-MIT/X11.
-
-|#
-
-(unless (find-package :uiop)
-  (ql:quickload '(:uiop) :silent t))
-
-(unless (find-package :parenscript)
-  (ql:quickload '(:parenscript) :silent t))
-
-
-(defun terminate (code &optional message &rest args)
-  (when message
-    (format *error-output* "~&~A~%"
-            (apply #'format nil (princ-to-string message) args)))
-  (uiop:quit code))
-
-
-(defun compile-parenscript-file (source)
-  (let* ((source-path (pathname source))
-         (target-path (make-pathname :type "js"
-                                     :defaults source-path)))
-    (with-open-file (output target-path
-                            :direction :output
-                            :if-exists :supersede)
-      (write-string (parenscript::ps-compile-file source-path) output)))
-  (values))
-
-(defun main (&rest filenames)
-  (unless filenames
-    (terminate -1 "Usage: compile-parenscript filename..."))
-  (mapc #'compile-parenscript-file filenames))