fix: HTTP(url) alias for HTTP$ — avoid UDF name collision

read_identifier stops at '(', so HTTP(U$) was resolved as UDF HTTP with
wrong types. Route HTTP( to intrinsic HTTP$ in eval_factor and execute_statement.

Co-authored-by: Chris Garrett <chris@chrisg.com>

Author: cursoragent

CHANGELOG.md

@@ -2,7 +2,7 @@
 
 ### Unreleased
 
-- **Browser WASM HTTP (`HTTP$` / `HTTPSTATUS`)**: **`R$ = HTTP$(url$ [, method$ [, body$]])`** performs **`fetch`** (Asyncify + **`EM_ASYNC_JS`**). **`HTTPSTATUS()`** returns the last HTTP status (**0** on failure). Response body is truncated to the current max string length. **Native / non-Emscripten**: **`HTTP$`** returns **`""`** (use **`EXEC$("curl …")`**). **`Makefile`**: **`ASYNCIFY_IMPORTS`** includes **`__asyncjs__wasm_js_http_fetch_async`**. **`starts_with_kw`**: longer identifiers no longer match shorter keywords (**`HTTP`** vs **`HTTPSTATUS`**). Example: **`examples/http_time_london.bas`**.
+- **Browser WASM HTTP (`HTTP$` / `HTTPSTATUS`)**: **`R$ = HTTP$(url$ [, method$ [, body$]])`** performs **`fetch`** (Asyncify + **`EM_ASYNC_JS`**). **`HTTPSTATUS()`** returns the last HTTP status (**0** on failure). Response body is truncated to the current max string length. **Native / non-Emscripten**: **`HTTP$`** returns **`""`** (use **`EXEC$("curl …")`**). **`Makefile`**: **`ASYNCIFY_IMPORTS`** includes **`__asyncjs__wasm_js_http_fetch_async`**. **`starts_with_kw`**: longer identifiers no longer match shorter keywords (**`HTTP`** vs **`HTTPSTATUS`**). **`HTTP(url$)`** without **`$`** is accepted as an alias for **`HTTP$`** (avoids collision with user **`FUNCTION HTTP`**). Example: **`examples/http_time_london.bas`**.
 
 - **`SPRITEFRAME` statement**: Dispatch lived under **`c == 'D'`** but the keyword starts with **S**, so **`SPRITEFRAME 0, 1`** fell through to **`LET`** and failed with “reserved word cannot be used as variable”. Moved handling to the **`S`** branch with **`SPRITEVISIBLE`**.
 

README.md

@@ -151,7 +151,7 @@ Run this once after unpacking, and macOS will stop treating the binary as “fro
     - `ARG$(n)` — returns the *n*th argument as a string. `ARG$(0)` is the script path; `ARG$(1)` … `ARG$(ARGC())` are the arguments. Out-of-range returns `""`.
     - `SYSTEM(cmd$)`** — runs a shell command (e.g. `SYSTEM("ls -l")`), waits for it to finish, and returns its exit status (0 = success).
     - `EXEC$(cmd$)` — runs a shell command and returns its standard output as a string (up to 255 characters; trailing newline trimmed). Use for scripting (e.g. `U$ = EXEC$("whoami")`).
-    - **Browser WASM only**: `HTTP$(url$ [, method$ [, body$]])` — `fetch` the URL; returns response body as a string. `HTTPSTATUS()` — last HTTP status from `HTTP$` (0 if the request failed). Outside the Emscripten build, `HTTP$` returns `""` (use `EXEC$` with `curl` on native). APIs must allow **CORS** from your page origin. See `examples/http_time_london.bas`.
+    - **Browser WASM only**: `HTTP$(url$ [, method$ [, body$]])` — `fetch` the URL; returns response body as a string. `HTTP(url$)` without `$` is the same call. `HTTPSTATUS()` — last HTTP status from `HTTP$` (0 if the request failed). Outside the Emscripten build, `HTTP$` returns `""` (use `EXEC$` with `curl` on native). APIs must allow **CORS** from your page origin. See `examples/http_time_london.bas`.
 
 ### Additional/Non-Standard BASIC Commands
 

basic.c

@@ -6337,6 +6337,12 @@ static struct value eval_factor(char **p)
             read_identifier(&q, namebuf, sizeof(namebuf));
             return eval_function(namebuf, p);
         } else {
+            /* HTTP(...) without $ — same intrinsic as HTTP$(...); "HTTP" alone must not match UDF HTTP. */
+            if (toupper((unsigned char)(*p)[0]) == 'H' && toupper((unsigned char)(*p)[1]) == 'T' &&
+                toupper((unsigned char)(*p)[2]) == 'T' && toupper((unsigned char)(*p)[3]) == 'P' &&
+                (*p)[4] == '(') {
+                return eval_function("HTTP$", p);
+            }
             /* Check for user-defined FUNCTION or DEF FN, else variable */
             char namebuf[VAR_NAME_MAX];
             char *q;
@@ -9414,6 +9420,15 @@ static void execute_statement(char **p)
             read_identifier(&q, namebuf, sizeof(namebuf));
             for (i = 0; namebuf[i]; i++) namebuf[i] = (char)toupper((unsigned char)namebuf[i]);
             skip_spaces(&q);
+            /* HTTP(url) statement — intrinsic, not UDF "HTTP" */
+            if (strcmp(namebuf, "HTTP") == 0 && *q == '(') {
+                struct value discard;
+                char *ep = *p;
+                discard = eval_function("HTTP$", &ep);
+                (void)discard;
+                *p = ep;
+                return;
+            }
             if (*q == '(') {
                 struct value *args = (struct value *)calloc(MAX_UDF_PARAMS, sizeof(struct value));
                 if (!args) {