From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 15 Apr 2018 08:19:00 +0000 (-0700)
Subject: Mark deprecated list procedures and also more SRFI-1 procedures.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~129
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a24359fe7da8b7d5ca447d90b6edc791ed79b464;p=mit-scheme.git

Mark deprecated list procedures and also more SRFI-1 procedures.
---

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 435c2578a..097ecaaae 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -2844,27 +2844,34 @@ USA.
 (define-package (runtime list)
   (files "list")
   (parent (runtime))
-  (export ()
-	  (improper-list? dotted-list?)
-	  (list-search-negative find-non-matching-item)
-	  (list-search-positive find-matching-item)
-	  (list-tabulate make-initialized-list)	;SRFI-1
+  (export () deprecated:list
 	  (list-transform-negative delete-matching-items)
 	  (list-transform-positive keep-matching-items)
 	  (mapcan append-map!)
 	  (mapcan* append-map*!)
+	  count-matching-items
+	  count-non-matching-items
+	  delete-matching-items
+	  delete-matching-items!
+	  find-matching-item
+	  find-non-matching-item
+	  keep-matching-items
+	  keep-matching-items!)
+  (export ()
+	  (improper-list? dotted-list?)
+	  (list-tabulate make-initialized-list)	;SRFI-1
 	  (proper-list? list?)		;SRFI-1
 	  add-member-procedure
 	  alist->keyword-list
-	  alist-cons
-	  alist-copy
-	  alist-delete
-	  alist-delete!
+	  alist-cons			;SRFI-1
+	  alist-copy			;SRFI-1
+	  alist-delete			;SRFI-1
+	  alist-delete!			;SRFI-1
 	  alist?
 	  append
-	  append!
-	  append-map
-	  append-map!
+	  append!			;SRFI-1
+	  append-map			;SRFI-1
+	  append-map!			;SRFI-1
 	  append-map*
 	  append-map*!
 	  assoc
@@ -2902,12 +2909,10 @@ USA.
 	  cdddr
 	  cddr
 	  cdr
-	  circular-list
+	  circular-list			;SRFI-1
 	  circular-list?		;SRFI-1
 	  cons
-	  cons*
-	  count-matching-items
-	  count-non-matching-items
+	  cons*				;SRFI-1
 	  decode-general-car-cdr
 	  del-assoc
 	  del-assoc!
@@ -2915,11 +2920,9 @@ USA.
 	  del-assq!
 	  del-assv
 	  del-assv!
-	  delete
-	  delete!
+	  delete			;SRFI-1
+	  delete!			;SRFI-1
 	  delete-association-procedure
-	  delete-matching-items
-	  delete-matching-items!
 	  delete-member-procedure
 	  delq
 	  delq!
@@ -2932,14 +2935,10 @@ USA.
 	  except-last-pair
 	  except-last-pair!
 	  fifth
-	  find-matching-item
-	  find-non-matching-item
-	  find-unique-matching-item
-	  find-unique-non-matching-item
 	  first
-	  fold
+	  fold				;SRFI-1
 	  fold-left
-	  fold-right
+	  fold-right			;SRFI-1
 	  for-each
 	  fourth
 	  general-car-cdr
@@ -2950,18 +2949,16 @@ USA.
 	  guarantee-list-of-type->length
 	  guarantee-restricted-keyword-list
 	  iota				;SRFI-1
-	  keep-matching-items
-	  keep-matching-items!
 	  keyword-list->alist
 	  keyword-list?
 	  keyword-option-parser
 	  last				;SRFI-1
-	  last-pair
+	  last-pair			;SRFI-1
 	  length
 	  length=?
 	  list
 	  list->weak-list
-	  list-copy
+	  list-copy			;SRFI-1
 	  list-deletor
 	  list-deletor!
 	  list-head
@@ -2969,13 +2966,13 @@ USA.
 	  list-of-type?->length
 	  list-ref
 	  list-set!
-	  list-tail
+	  list-tail			;use SRFI-1 drop
 	  list=				;SRFI-1
 	  list?
 	  list?->length
 	  make-circular-list
 	  make-initialized-list
-	  make-list
+	  make-list			;SRFI-1
 	  map
 	  map*
 	  member
@@ -2988,12 +2985,12 @@ USA.
 	  null-list?			;SRFI-1
 	  null?
 	  pair?
-	  reduce
+	  reduce			;SRFI-1
 	  reduce-left
-	  reduce-right
+	  reduce-right			;SRFI-1
 	  restricted-keyword-list?
 	  reverse
-	  reverse!
+	  reverse!			;SRFI-1
 	  reverse*
 	  reverse*!
 	  second
@@ -3004,13 +3001,14 @@ USA.
 	  sublist
 	  tenth
 	  third
-	  tree-copy
+	  tree-copy			;SRFI-1
 	  unique-keyword-list?
 	  weak-delq!
 	  weak-list->list
 	  weak-list?
 	  weak-memq
-	  xcons))
+	  xcons				;SRFI-1
+	  ))
 
 (define-package (runtime lambda-list)
   (files "lambda-list")