Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit efa5831

Browse files
1 parent f756e65 commit efa5831

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

‎ulisp.hpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1616,7 +1616,7 @@ object* apropos (object* arg, bool print) {
16161616
uint8_t ft = fntype(getminmax(i));
16171617
pbuiltin((builtin_t)i, pserial); pserial(' '); pserial('(');
16181618
if (ft == FUNCTIONS) pfstring("function", pserial);
1619-
else if (ft == SPECIAL_FORMS) pfstring("special form", pserial);
1619+
else if (ft == SPECIAL_FORMS || ft == TAIL_FORMS) pfstring("special form", pserial);
16201620
else pfstring("symbol/keyword", pserial);
16211621
pserial(')'); pln(pserial);
16221622
} else {

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /