From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 22 May 1987 00:11:43 +0000 (+0000)
Subject: Define more operations on SCode comments.
X-Git-Tag: 20090517-FFI~13486
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8fcfe3d7f3ee172ef462b7f1a3437852d94a1dd7;p=mit-scheme.git

Define more operations on SCode comments.
---

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 8126e3892..888105459 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.87 1987/05/15 19:50:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.88 1987/05/22 00:11:43 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -140,6 +140,7 @@ MIT in each case. |#
   (define-scode-operator combination-components)
   (define-scode-operator combination?)
   (define-scode-operator comment-expression)
+  (define-scode-operator comment-text)
   (define-scode-operator comment?)
   (define-scode-operator conditional-components)
   (define-scode-operator definition-components)
@@ -152,6 +153,7 @@ MIT in each case. |#
   (define-scode-operator make-access)
   (define-scode-operator make-assignment)
   (define-scode-operator make-combination)
+  (define-scode-operator make-comment)
   (define-scode-operator make-conditional)
   (define-scode-operator make-definition)
   (define-scode-operator make-lambda)