From 58ee63722a5e388c144cf0e603c0016698a93ef0 Mon Sep 17 00:00:00 2001
From: gus-massa <gustavo@oma.org.ar>
Date: Wed, 22 May 2019 11:52:24 -0300
Subject: [PATCH] Fix signatures of $file-options and friends (#429)

They were defined inside a block with the `proc` flag, but they are `enum-set`s.
  primdata.ss
original commit: 3fce8333e3856573292b97b9a2d47827216f9097
---
 LOG           |  3 +++
 s/primdata.ss | 11 +++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/LOG b/LOG
index 8fc437dfaa..05d15b1a33 100644
--- a/LOG
+++ b/LOG
@@ -1363,3 +1363,6 @@
     number.c, 5_3.ms, release_notes.stex
 - fixed typo in description of case macro
     csug/control.stex
+- fix signatures of $annotation-options, $fasl-strip-options,
+  $file-options, and $library-requirements-options
+    primdata.ss
\ No newline at end of file
diff --git a/s/primdata.ss b/s/primdata.ss
index 2b1423e53b..1aefbcd14e 100644
--- a/s/primdata.ss
+++ b/s/primdata.ss
@@ -1726,7 +1726,6 @@
   ($address-in-heap? [flags])
   ($address->object [flags])
   ($allocate-thread-parameter [feature pthreads] [flags alloc])
-  ($annotation-options [flags])
   ($apply [flags])
   ($assembly-output [flags])
   ($as-time-goes-by [flags])
@@ -1820,10 +1819,8 @@
   ($fasl-file-equal? #;[sig [(pathname pathname) (pathname pathname ptr) -> (boolean)]] [flags])
   ($fasl-out [flags])
   ($fasl-start [flags])
-  ($fasl-strip-options [flags])
   ($fasl-table [flags])
   ($fasl-wrf-graph [flags])
-  ($file-options [flags])
   ($filter-conv [flags])
   ($filter-foreign-type [flags])
   ($fixed-path? [flags])
@@ -2055,7 +2052,6 @@
   ($keep-live [flags])
   ($last-new-vector-element [flags])
   ($lexical-error [flags])
-  ($library-requirements-options [flags])
   ($library-search [flags])
   ($list-length [flags])
   ($load-library [flags])
@@ -2269,6 +2265,13 @@
   ($xscript-port? [flags])
 )
 
+(define-symbol-flags* ([libraries] [flags system]) ; system options sets
+  ($annotation-options [flags])
+  ($fasl-strip-options [flags])
+  ($file-options [flags])
+  ($library-requirements-options [flags])
+)
+
 (define-symbol-flags* ([libraries] [flags system proc]) ; system parameters
   ($block-counter [flags])
   ($cafe [flags])