eval env badform@(List (Atom "define" : _)) = throwError $ BadSpecialForm "Bad define form" badform
eval env badform@(List (Atom "define" : _)) = throwError $ BadSpecialForm "Bad define form" badform
eval env badform@(List (Atom "define" : _)) = throwError $ BadSpecialForm "Bad define form" badform