<commit_before>\\ License Note:  this code is used to generate KLambda from Shen source under the 3-clause BSD license.  The code may be changed but
\\ the license attached to the generated KLambda may **not** be changed.  The KLambda produced is a direct derivative of the Shen sources 
\\ which are 3 clause BSD licensed.  Please look at the file license.pdf for an accompanying discussion.
\\
\\ (c) <NAME> 2015, all rights reserved

\\(systemf sum)
\\(systemf *stoutput*)
\\(systemf package?)

(package shen []
  (define function-abstraction 
    F 0 -> [freeze F]
    F -1 -> (function-abstraction F 1)
    F N -> (function-abstraction-help F N []))  
)

(define make
  -> (map (function make-file) ["core.shen" "declarations.shen" "load.shen" "macros.shen"
                                "prolog.shen" "reader.shen" "sequent.shen" "sys.shen" "t-star.shen"
                                "toplevel.shen"  "track.shen"  "types.shen" "writer.shen"
                                "yacc.shen"]))

(defcc shen.<name>
  X := (if (symbol? X) 
           X
           (error "~A is not a legitimate function name.~%" X)))

(define make-file
  ShenFile -> (let Message (output "compiling ~A~%" ShenFile)<commit_msg>Remove function-abstraction override in make.shen, not necessary anymore<commit_after>\\ License Note:  this code is used to generate KLambda from Shen source under the 3-clause BSD license.  The code may be changed but
\\ the license attached to the generated KLambda may **not** be changed.  The KLambda produced is a direct derivative of the Shen sources 
\\ which are 3 clause BSD licensed.  Please look at the file license.pdf for an accompanying discussion.
\\
\\ (c) <NAME> 2015, all rights reserved

\\(systemf sum)
\\(systemf *stoutput*)
\\(systemf package?)

(define make
  -> (map (function make-file) ["core.shen" "declarations.shen" "load.shen" "macros.shen"
                                "prolog.shen" "reader.shen" "sequent.shen" "sys.shen" "t-star.shen"
                                "toplevel.shen"  "track.shen"  "types.shen" "writer.shen"
                                "yacc.shen"]))

(defcc shen.<name>
  X := (if (symbol? X) 
           X
           (error "~A is not a legitimate function name.~%" X)))

(define make-file
  ShenFile -> (let Message (output "compiling ~A~%" ShenFile)
{'fraction_non_alphanumeric': 0.12387096774193548, 'fraction_numerical': 0.0064516129032258064, 'mean_word_length': 2.4924924924924925, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 14, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7520766', 'n_tokens_mistral': 758, 'n_tokens_neox': 721, 'n_words': 260}