diff options
author | Gabriel Dos Reis <GabrielDosReis@users.noreply.github.com> | 2022-08-21 13:01:37 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-08-21 13:01:37 -0700 |
commit | 0f612f581a6d58a4d3ceed0ade26e04681b32e13 (patch) | |
tree | 3ad3907873f66a5d9bc463328e5817db0ff83e6e /src/boot/ast.boot | |
parent | 3dc479ae544db8bc9224f183f33cb3e16fe2daac (diff) | |
download | open-axiom-0f612f581a6d58a4d3ceed0ade26e04681b32e13.tar.gz |
Boot parser: Remove useless AST functions (#17)
A couple of the Boot AST building functions are identity functions. Remove to reduce obfuscation.
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r-- | src/boot/ast.boot | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index b37992de..d6fcc111 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2016, Gabriel Dos Reis. +-- Copyright (C) 2007-2022, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -198,17 +198,6 @@ bfEqual: %Form -> %Form bfEqual(name) == ["EQUAL",name] -bfBracket: %Thing -> %Thing -bfBracket(part) == - part - -bfPile: %List %Form -> %List %Form -bfPile(part) == - part - -bfDo x == - x - bfAtScope(s,x) == ["LET",[["*PACKAGE*",s]],x] |