diff --git a/include/noun/retrieve.h b/include/noun/retrieve.h index d5c6b5429..3c63beb72 100644 --- a/include/noun/retrieve.h +++ b/include/noun/retrieve.h @@ -242,7 +242,7 @@ /* u3r_trel(): ** - ** Divide `a` as a trel `[b c]`. + ** Divide `a` as a trel `[b c d]`. */ c3_o u3r_trel(u3_noun a, @@ -252,7 +252,7 @@ /* u3r_qual(): ** - ** Divide (a) as a qual [b c d e f]. + ** Divide (a) as a qual [b c d e]. */ c3_o u3r_qual(u3_noun a, @@ -273,6 +273,19 @@ u3_noun* e, u3_noun* f); + /* u3r_hext(): + ** + ** Divide (a) as a hext [b c d e f g]. + */ + c3_o + u3r_hext(u3_noun a, + u3_noun* b, + u3_noun* c, + u3_noun* d, + u3_noun* e, + u3_noun* f, + u3_noun* g); + /* u3r_p(): ** ** & [0] if [a] is of the form [b *c]. diff --git a/noun/manage.c b/noun/manage.c index 7d29ad2a5..353940b7f 100644 --- a/noun/manage.c +++ b/noun/manage.c @@ -633,7 +633,7 @@ u3m_bail(u3_noun how) } if ( &(u3H->rod_u) == u3R ) { - // For top-level errors, which shouln't happen often, we have no + // For top-level errors, which shouldn't happen often, we have no // choice but to use the signal process; and we require the flat // form of how. // diff --git a/vere/http.c b/vere/http.c index 01fda23f5..9a128034e 100644 --- a/vere/http.c +++ b/vere/http.c @@ -1129,6 +1129,7 @@ _http_release_ports_file(c3_c *pax_c) snprintf(paf_c, pal_i, "%s/%s", pax_c, ".http.ports"); unlink(paf_c); + u3a_free(paf_c); } /* u3_http_io_init(): initialize http I/O.